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HOBBI 

ELEKTRONIKA 

Urbán István mérnök áramköreinek szaküzlete 



Budapest VII., Dózsa György út 16. (D6zsa-]obbágy sarok) 
Nyitva: H-P 10—17-ig Tel./fax: 122-8892 
(Zárás után üzenetrögzítő) 


KÍNÁLATUNKBÓL 


SZÁMÍTÁSTECHNIKA: 


C64 BÓVÍTÓK egys. élesztve 


PLOFI Datassette cartridgo 

1.200 

Ft 

1.500 

FI 

PLOFI Help + cartrkJge 

1.200 

Ft 

1.500 

FI 

PLOFI FASTLOAD cartrklge 

1.200 

Ft 

1.500 

Ft 

PLOFI FASTLOAD + SPEEDTAPE 

1.500 

Ft 

1.700 

FI 

PLOFI SIMON S cartndge 

1.500 

Ft 

1 700 

Ft 

PLOFI JÁTÉK cartndge 

1.500 

Ft 

1.700 

FI 

ACT10N REPLAY MK7 cartrklge 

— 


3.450 

Ft 

ATOMIC POWER cartrldge 

— 


3.450 

FI 

RNAL III. cartridge 

— 


3450 

FI 

PAGEFOX DTP cartridge 

3.200 

Ft 

3.900 

FI 

MINI EPROMBANK cartrklge 

2.300 

FI 

2.900 

FI 

EPROMBANK 256 Kbájt 

2.900 

FI 

4.000 

Ft 

C64 DOKTOR teszt cartridge 

2.300 

Ft 

3.000 

Ft 

EPROMÉGETÓ (2716-27512-ig) 

3.400 

FI 

4.500 

Ft 

IC TESZTER (kb. 180 TTL IC) 
256K RAM BOVItÓ RAM floppí 

2.700 

FI 

3.900 

Ft 

— 


11.800 

Ft 

FÉNYCERUZA + szoftver 

950 

Ft 

1.450 

Ft 

HANGDIGITAUZÁLÓ + szoftver 

1.350 

Ft 

1.700 

Ft 

HANGKAPCSOLÓ + szoftver 

700 

Ft 

990 

Ft 

DATASSETTE fejbeállító 

390 

Ft 

— 


CPU STOP + RÉSÉT 

400 

Ft 

— 


FREKVENCIAMÉRŐ 30 MHz 

1.300 

Ft 

1.800 

Ft 

1/0 BŐVÍTŐ 8255-tel 

1.400 

Ft 

1.800 

Ft 

JOYSTICK automata 

1.500 

Ft 

1.900 

Ft 

USER CENTRONICS kábel 

750 

Ft 

— 


IBM BÓVÍTÓK 

egys. 

élesztve 

IBM IC TESZTER + szoftver 

5.900 

Ft 

9.800 

Ft 

IBM EPROMÉGETÓ + szoftver 

4800 

Ft 

9.900 

Ft 

IBM EPROMÉGETÓ tápegység 

1.200 

Ft 

1 benne 

IBM CODEC HANGKÁRTYA 

3.000 

Ft 

4.800 

Ft 


IBM K0V0X - 700 R 

IBM AKTÍV K0V0X 1.600 R - 

IBM 1)0 KÁRTYA 46 vonal 3.500 Ft - 

IBM GÁL PROGRAMOZÓ 6.500 Ft 8.500 R 


TANGÓ PLD jogtiszta szoftver. Kérjen árajánlatott 
TANGÓ NYÁKTEVEZÓ jogtiszta szoftver 
TTL, CMOS, TRANZISZTOR, DIÓDA, MEMÓRIA 
katalógus floppylemezen, egységesen: 600 Ft/db 


C-64 BÖRZE 

Használt C-64-et, flopit adok-veszek. 
Hibás gépet beszámítok, megvásárolok. 
Megegyezés szerint 
új IBM PC részegységre cserélek. 


Áraink a 25% ÁFA-t tartalmazzák! 


Szaküzletemben vásárolhat a Commodore Újság HOBBI ELEKTRONIKA rovatában megjelent hardverleírásokhoz 
(működő minta alpján) panelt, egységcsomagot, vagy készre szerelt áramkört. 



Vidéki olvasóknak segít a szerző levelező, egységcsomagküldó 
szolgáltatása: a megrendelt csomagot postán utánvéttel 
elküldöm. Telefonon/faxon és levélben is rendelhet. 

A HOBBI ELEKTRONIKÁ-hoz nem kell hosszú levél. Rendelését 
néhány sorban, egyértelműen közölje 

Levélcím: 1656 Budapest Pf. 50. 


Az üzletben megvásárolhatók az RT évkönyvei, a Rádiótechnika és a Hobby Elektronika korábbi számai. 





























EGYESÜLET 


C 



EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodjában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés, lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy évre 1020 Ft. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 2350 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-újságból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 24 000 Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tagjainkat és az érdeklődőket. 
PÖTYÖGŐSZOLGÁLAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 300 Ft. A hirdetés módja: 
az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk az 1-76-22-57-es telefonszámon 
vagy levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 

VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 

Baja, AXIS Kft. 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA-BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ság vári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon: 1-76-22-57 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter, az OCE főtitkára 

Felelős szerkesztő: dr. Horváth András 

Művészeti szerkesztő: Bausz Sándor 

Levélcím: Commodore Újság, 1388 Budapest, 62. Pf.: 86. 

Index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

93.0335 MSZH Nyomda és Kiadó Kft., Budapest 

Felelős vezető: Nagy László 


Tagdíjfizetés 

Kedves Tagtársaink! 

Egyesületünk közzéteszi, hogy a realitásokat figye¬ 
lembe véve, mértéktartóan bár, de kénytelenek va¬ 
gyunk tagdíjunkat február elsejétől megváltoztatni. 

Deákpáholy 1 020 Ft 

Pluszpáholy 2 350 Ft 

Szuperpáholy 24 000 Ft 

Országos Commodore Egyesület 


C-64 C+4 AMIGA PC 


tulajdonosok! 

Várunk benneteket az Országos Commodore 
Egyesület klubdélelőttjén a Havanna Közösségi 
Házban minden hónap 3. vasárnapján, délelőtt 9 
órától. Gépet és hosszabítót hozzatok! 

Cím: 1181 Budapest, Kondor Béla sétány 8. 
Megközelíthető: a metró kőbánya-kispesti végál¬ 
lomásától a piros 136-os busszal. 

Legközelebb: 

február 20-án. 


Tisztelt Szerkesztőség! 


Az alábbi kis program a képernyő tartalmát lefelé tolja 
(SCROLL) el a megadott sorszámmal. Érdekessége az, hogy a 
képernyő felfelé gördül, de ami fent kilép, az alul újra belép a 
képernyőre és a kívánt helyen áll meg. A hibátlan működés felté¬ 
tele az, hogy a képernyő nem tartalmazhat olyan sorokat, ame¬ 
lyek 39-nél több karakterből állnak, azaz amelyeknél soremelés 
történt. 

A program: 

100 X = 5:RÉM SRCOLLOZANDÓ SOROK (1-23) 

110 FÓR I = 1024 TO 1063 : POKE I + 960,PEEK(I) 

120 NEXT I 

130 FÓR V = 1T024-X: SYS59626: SYS59848: 

140 NEXT V 

150 FŐRE = 0TOX-l:POKE 781,E:SYS59903 
160 NEXT E 
170 SYS 58726 

A 110—120. sor a képernyő első sorát az utolsó sorba írja, 
enélkül a, ,HOME” funkciót tölti be, a nem kívánatos soremelés 
elkerülésére, adott esetben elhagyható. 

Ha a 150—170. sorokat elhagyjuk és helyettük a következőt 
írjuk be: 

150 GOTO 130 

egy végtelen felfelé gördülést kapunk. 

Egy megjegyzés: Véleményem szerint ez a program-morzsa 
BASIC nyelven készült. Ezt azért írom, mert csodálkozva olvas- 
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tam, hogy a játékpályázaton az egyik programnál erősen kifogá¬ 
solták, hogy az egy SYS utasítást tartalmazott. Megnéztem a pá¬ 
lyázati felhívást és úgy láttam, hogy ezt többféleképpen lehet ér¬ 
telmezni, de ezek közül csak egynek van értelme. Ugyanis, ha 
szigorúan vesszük, hogy a program nem hívhat meg , ,gépi kódú 
programrészeket”, akkor az összes pályamunkát el kellett volna 
utasítani. Ugyanis tudomásom szerint minden BASIC utasítás 
egy sor „gép kódú programrészt” hív meg, sőt már egy gomb 
lenyomása is ezt teszi. A SYS csak annyiban különbözik a többi¬ 
től, hogy annak egy címet is adhatunk. Ha csak SYS-szel nem 
szabad meghívni, akkor azt kell írni, hogy: ,,SYS-t nem tartal¬ 
mazhat a program”. Legközelebb aztán lehet olyan pályázatot ki¬ 
írni, amelyik pl. a FÓR—NEXT ciklust tiltja meg. 

Egyszóval, szerintem az az elfogadható értelmezés, hogy a 
program nem tartalmazhat, nem állíthat elő és nem hívhat meg 
olyan gépi kódú programrészeket, amelyeket a gyári C64 (vagy 
C+4) nem tartalmaz. 

Tisztelettel: 

Pályi Sándor 

Tisztelt Szerkesztőség! 


Küldtem a címükre egy levelet, amelyben képernyő lefelé 
görgetéséről írtam, hamar rájöttem, hogy elhamarkodtam. Nem 
tudom, hogy ennek van-e köze ahhoz, hogy egy kis cikk jelent 
meg „Képernyőgörgetés” címen. Ebben leírnak egy három uta¬ 
sításból álló módot, amivel lefelé lehet görgetni a képernyőt. 
Amikor megláttam, igen csodálkoztam, mert ugyanezt én is pró¬ 
báltam már, de használhatatlannak találtam. Igaz ugyan, hogy 
egy sorral lejjebb vitte a képernyő tartalmát, de ha utána a kur¬ 
zort a 0. sorba akartam felvinni, az 1. sorig még fel lehetett tor¬ 
názni, de onnan visszaugrott a 4. sorba, és onnan csak lefelé volt 
hajlandó menni. Ha a következő programot írtam be: 

10 ?"1. SOR" 

20 ?*2. SOR" 

30 ?"3. SOR" 


Tisztelt COMMODORE ÚJSÁG! 


A PLUS/4 MAGYARUL NYOMTAT programok fejlesztése 
során találkoztam néhány problémával, melyeknek megoldása 
talán másoknak is tanulságos lehet, hasonló munkáknál. 

Nem tartozik a programokhoz, de talán érdemes tőlük füg¬ 
getlenül közölni az alábbi — mások számára is — hasznosítható 
,, melléktermékeket”. 

1; A program használja a $F400-tól kezdődő RAM terüle¬ 
tet, ezért a BASIC végcímet ($37—38) át kell írja $F000-ra, sa¬ 
ját védelmére. Mivel eredetileg BASIC területre töltődik, fut¬ 
tatás után ezt fel kell szabadítani. Ez NEW rutinnal lehetséges, 
de itt vigyázni kell, mert előtte a Z bitet 1-re kell állítani pl. 
LDA#$00-val. 

Nekem ennek ellenére általában BREAK-kel tért vissza. 
Ezért inkább a JMP 8000-et („hidegstart”) választottam, ami tö¬ 
kéletes, csak az előzetesen beállított végcímet ($F0) visszaírta 
$FD-re. Kiderült, hogy a végcímet nem a $37—38-ba, hanem 
a $0533—0534-be kell beírni. A hidegindítás rutin ugyanis in¬ 
nen veszi ki a $37—38-ba beírandó értéket. 

2; A ROM mögötti RAM lapozásához, a megszakítást le 



EGYESÜLET 

40 ?*4. SOR" 

50 POKE 214,255:SYS 59749:SYS 58640 
60 ?CHR$(19) "0. SOR" 

akkor RUN parancsra a 0. sor üressé vált, utána kiírta az 1., 2., 
3. sort, de a 4. sor kiírása helyett azt átírva a 0. sor jelent meg 
ahelyett, hogy a 0. sor kiírása a 0. sorba ment volna. 

Amikor az újságban láttam a dolgot, csak arra gondolhat¬ 
tam, hogy hibás a gépem. Kipróbáltam egy másik gépen is (az 
C-64 n. típusú volt), hajszálpontosan ugyanúgy viselkedett. Mi¬ 
vel annak a valószínűsége, hogy két különböző gyártási sorozat¬ 
ból származó, kifogástalanul működő számítógépnek ugyanaz, 
a többi gépre nem jellemző hibája lenne, igen kicsi; nagy a való¬ 
színűsége annak, hogy az Önök által közölt eljárás hibás, hasz¬ 
nálhatatlan. 

Azt már csak a magam megnyugtatására írom meg, hogy 
a beküldött verzió azért volt elhamarkodott, mert az első sor má¬ 
solása az utolsóba nem túl elegáns. Jobb is van nála. Jelenlegi 
verzióm: 

100 SYS 59777 

110 FORI=0TO24-X: SYS59626: SYS59848 
120 NEXTI 

130 FORI=OTOX-1: POKE781,I: SYS599903 
140 NEXTI 

Az X-et, tehát azt az értéket, hogy hány sorral akarjuk legör¬ 
getni a képernyőt, természetesen meg kell adni. 

A 100. sor ugyanazt csinálja, mint az Önök három utasítása, 
csak rövidebb, ugyanazzal a hibával. A hiba megszüntetésére ed¬ 
dig csak a SYS 59626 utasítást találtam, tehát meg lehet csinálni, 
hogy eggyel több sorral vitettem le a képernyőt, aztán egyet 
visszaemelek rajta, de ekkor az utolsó sor elvész. 

A 110—120. sor gördít, a 130—140. sor törli a felesleget. így 
azért működik, mert indításkor eggyel lejjebb viszem a sort, te¬ 
hát a 0. sor 1. sorrá változik, így a felfelé irányuló legördítésnél 
nem vész el. Ez a programocska vagy szubrutin még mindig tö¬ 
kéletesen működött, de ha előtte az Önök által közölt utasítást 
használták, ajánlatos legalább egy resetet csinálni. 

Tisztelettel: 

Pályi Sándor 


kell tiltani, de minden visszatérés után, (STA $FF3E) engedé¬ 
lyezni kell. Ez ismert tény. Ezt azonban akkor is meg kell tenni, 
ha az átírt — RAM-ban futó — rutin ROM-ból volt meghíva és 
RTS-sel tér vissza. Ilyenkor az eljárás: RTS helyett, JMP alsó 
RAM-ba (pl. $065E) majd ott; STA $FF3E:CLI:RTS, és így 
biztosított a zavartalan visszatérés. 

Ez nekem konkrét hibát okozott. Az átírt billentyűdekódoló 
rutin részlet, tartalmazott egy RTS-t arra, hogyha Control/S bil¬ 
lentyű kombináció (kiírás megállítása) jön. Ekkor „bolondult” 
meg a gép. Utólag kiderült: NEKI volt igaza. A fenti megoldás¬ 
sal minden rendbejött. 

3; A fent leírt hiba „guberálása” közben számtalanszor 
megnéztem a PLUS/4 belső felépítése című könyv 
$DBA6-DBAE részletét. Itt az szerepel szövegben: Ha a beol¬ 
vasott karakter nem < CR > akkor ugrás. Az ehhez tartozó CPX 
#$0D valóban a CR (dccl3) kódja. Mint később a két könyv 
(PLUS/4 ROM lista) összevetésével kiderült, ez megtévesztett 
engem, de (sajnos) a könyv íróját is. Ebben az állapotban ugyan¬ 
is még nem a billentyű CHR$(x) értéke szerepel, hanem a mát¬ 
rix kódja, ami ebben az esetben véletlenül (CTRL/S) azonos 
a RETURN-nel. Ezért ha valaki forgatja ezt a könyvet, ké¬ 
rem sürgősen javítsa ki a $DBAB sor szövegében a <CR>-t 
CTRL+S-re. 


FEBRUÁR 





EGYESÜLET 


Cr 


4; Talán feltűnt valakinek a program nézegetése közben 
hogy rengeteg veremből ki utasítás (PLA stb.) fordul elő. Termé¬ 
szetesen ezt megpróbáltam egy szubrutinba ágyazni, de mivel 
az is verembe írja a visszatérési címet, teljesen megkeverte a ki¬ 
vett adatokat. Ezért inkább feladtam, és a többszöri beírást vá¬ 
lasztottam. 

Hát ennyi az, amiről úgy gondolom hogy mások is okul¬ 


hatnak. Nem vagyok profi programozó, tehát lehet hogy alap¬ 
vető hibákat is elkövettem, de hosszú kínlódás után mégiscsak 
működik az, aminek működnie kell. És ezt tartom fontosnak, 
meg — számomra — sikerélménynek. Ha ezenkívül még hasz¬ 
nos is, az csak előny. 

Tisztelettel 
Novák György 


Tisztelt Szerkesztőség 


Mellékelek egy levelet (az appendixekkel együtt) író és olva¬ 
só társamnak Szabó Balázsnak. A C-Újság 1992/7—8. számában 
kér segítséget MPS 1230-as nyomtatójával kapcsolatban. Talán 
a neki szánt soraim másokat is érdekelhetnek. Különösen a 3. 
lista, amelynek assembly programja a C64, és a hozzá csatlakoz¬ 
tatott MPS 1230-as nyomtató ékezetesítését oldja meg. 

Ha a 6 listához fűzzük a datas programot (csak adatokat 
tartalmaz), máris rendelkezésünkre áll egy komplett BASIC be¬ 
töltőprogram a fenti feladat végrehajtására. Betöltés után, a SYS 
49516 parancsra a ROM-ba másolja a karaktergenerátor kisbe¬ 
tűs/nagybetűs részét, majd,,helyükre rakja "az ékezetes karakte¬ 
reket inverzükkel együtt. 

A SYS 49796 hatására pedig az EPSON FX 80 emulációnál 
teszi ugyanezt- Mindkét programrész a mutatók szükséges átállí¬ 
tását is elvégzi- 

A program gépikódú és futtatható változata, a datas prog¬ 
rammal együtt megtalálható a lemezen. 


Kedves Szabó Balázs! 

Sajnos a PLUS/4-et nem ismerem, hogy mégis vállalkozom 
problémájának megoldására, azt csupán az indokolja, hogy ko- 
nyítok valamit a gépi kódú programozáshoz, valamint nekem is 
MPS 1230-as nyomtatóm van. (E levelet is „vele” írom.) És vé¬ 
gül de nem utolsósorban szívügyem az „ékezetesítés”. 

Programja — amennyiben a hivatkozási címek korrektek — 
logikus, bár némileg túlkomplikált. Márpedig még a gépi kódú 
programozásnál is, .illik” odafigyelni a futási időre. (Nem mint¬ 
ha ezesetben gyakorlati jelentősége lenne ennek, dehát jobb az 
ilyesmit idejekorán megszokni.) 

A címeket azért említettem, mert a programban szereplő 
$0324/$0325-ös vektor, valamint a $99-es cím a C64-nél az in¬ 
put műveletekkel kapcsolatos. (Persze ez lehet a két gép közötti 
eltérés is.) 

De hibát okozhat az is, hogy programjában az X és Y regisz¬ 
tereket anélkül veszi igénybe, hogy előtte értéküket elmentené. 

Az 1. lista a CHROUT rutint, a byte IEC buszra történő kül¬ 
déséig mutatja. Látható, hogy nem „bolygatja” a regisztereket! 
(Amelyek később felhasználandó lényeges értékeket tartalmaz¬ 
hatnak.) 

Mielőtt azonban továbbmennénk, érdemes felidézni néhány 
lényeges dolgot. 

A CHROUT rutin, a $9A címről kiolvasott aktuális egy¬ 
ségszámok alapján, különböző helyekre „irányítja” a kiírandó 
byte-ot. 

1- es egységszámnál a magnóra, 

2- esnél az RS232-es illesztőre 

3- asnál a képernyőre, 

4- es és 15-ös egységszám között az IEC buszra. Ide csatla¬ 
koznak a nyomtatók 


RÉM 1. LISTA 
RÉM C64 CHROUT 


o 

F1CA 

48 



F1CB 

A5 

9A 



F1CB 

C9 

03 


o 

F1CF 

D0 

04 



F1 Dl 

68 




F1D2 

4C 

16 

E7 

o 

F1D5 

90 

04 



F1D7 

68 




F1D8 

4C 

DD 

ED 

0 

F1DB 

4A 




O 


F'HA 

LDA 

9A 

O 

CMF' 

#03 

O 

BNE 

F1D5 

PL A 
JMP 

E716 

c 

BCC 

FI DB 

PLA 

JMP 

EDDD 

o 

LSR 

A 


4—5-ös, valamint a lemezegységek 8—15-ös (gyakorlatilag 
8—11-es) egyszégszámmal. 

Azt, hogy a csatlakoztatott berendezések közül melyik le¬ 
gyen aktív, az OPEN utasítással jelöljük ki. 

A fentiekből következik, hogy a CHAROUT rutin előtt kell 
megvizsgálni azt, hogy a byte a 4-es számú egységre irányul-e? 

A 2. lista „SAJAT RUTIN” ját megnézve, látható hogy első 
két sora megegyezik az eredeti rutin első soraival. 

3. sora ellenőrizni, hogy az aktuális egységszám 4-e? Ha 
nem, visszaadja a további feldolgozást az eredeti rutin 3. sorára. 

4-es egységszám esetén pedig, az Y regiszter értékének el¬ 
mentése után, a konvertáló táblázatból, Y-nal indexelve kiolva¬ 
sott ASCII érték az akumulátorba kerül. 

Visszatöltve Y értékét, az IEC buszra kerül a kiírandó byte. 

Az ASCII táblázat alkalmazása egyúttal megoldja a BA¬ 
SIC/PC konverziót is. 

A nyomtató korrekt működésének további feltétele az is, 
hogy a SET UP eljárás segítségével beállítsa az alábbi üzemmó¬ 
dokat: LF=LF+CR; CR=CR+LF 

A nyomtató csak ezután hajt végre soremelést is a CHR$(13) 
hatására. 


0 j 2. LISTA 

o 10 ; IBM GP./SPANYOL 0 

20 ; ^ 

30 MUTLO=*0326 

O 40 MUTHI=*0327 r 

50 DEVNR=*9A ^ 

60 KEZDC=*C000 

O 70 IECBU=*EDDD f 

80 CHR0U=*F1CD 
90 ; 

O100 *=KEZDC r. 

110 ; 

120 TA6L .BYTE *00,*01,*02,*03,*04,*05,*06,*07 
O130 BYTE *08,*09,*0A,*0B,*0C,*0D,*0E,*0F <j 

140 .BYTE *10,*11,*12,*13,*14,*15,*16,*17 
150 .BYTE * 18, * 19, * 1A, * 1B, * 1C, * 1D, * 1E, * 1F 
o 160 .BYTE *20,*21,*22,*23,*24,*25,*26,*27 Q 

170 .BYTE *28,*29,*2A,*2B,*2C,*2D,*2E,*2F 
180 .BYTE *30,*31,*32,*33,*34,*35,*36,*37 
° 190 .BYTE *3B,*39,*3A,*3B,*3C,*3D,*3E,*3F O 
200 .BYTE *40,*61,*62,*63,*64,*65,*66,*67 


5 C s 











EGYESÜLET 



*6D,*6E,*6F 
#75,*76,*77 
*5D,*5E,*5F 
*65,*66,*67 
*6D,*6E,*6F 
*75,*76,*77 
*7D,*7E,*7F 
*85,*86,*87 
#8D,*8E,*8F 
*95,*96,*97 
*9D,*9E,*9F 
*A5,*A6,*A7 
*98,*AE,#94 
*9D,*92,*81 
*BD,*BE,*BF 
*45,*46,*47 
*4D,*4E,*4F 
*55,*56,*57 
*DD,*DE,*DF 
*E5,*E6,*E7 
*ED,*EE,*EF 
#F5,*F6,*F7 
*FD,*FE,*FF 


O 


210 

220 

o 230 

240 
250 
260 
270 
280 
Q 290 
300 
310 
Q 320 
330 
340 
O 350 
360 
370 
O 380 
390 
400 
O 410 
420 
430 
O 440 
450 
460 
O 470 
480 
490 
o 500 

510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


O 


. BYTE 
. BYTE 
. BYTE 

• BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
.BYTE 
. BYTE 

• BYTE 

• BYTE 
.BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 

• BYTE 
.BYTE 

• BYTE 

• BYTE 
.BYTE 


*68,*69, 
*70,*71, 
*78,*79, 
*60,*61, 
*68,*69, 
*70,*71, 
*78,*79, 
*80,*81, 
*88,*89, 
*90,*91, 
*98,*99, 
*A0,*91, 
*A8,*A9, 
*A0,*82, 
*A3,*A2, 
#C0,*41, 
*48,*49, 
*50,*51, 
*58,*59, 
*E0,*E1, 
*E8,*E9, 
*F0,*F1 , 
*F8,*F9, 


*6A 
*72 
*7A 
*62 
*6 A 
*72 
*7A 
*82 
*8A 
*92 
*9A 
*A1 
*99 
*B2 
*BA 
*42 
*4A 
*52 
*5A 
*E2 
*EA 
*F2 
*FA 


, *6B 
,*73 
, *5B 
,*63 
, *6B 
,*73 
, *7B 
,*83 
, *8B 
,*93 
, *9B 
,*81 
, *AB 
, *B3 
, *BB 
,*43 
, *4B 
,*53 
, *DB 
, *E3 
, *EB 
, *F3 
, *FB 


,*6C, 
,*74, 
, *5C , 
,*64, 
,*6C, 
,*74, 
,*7C, 
,*84, 
,*8C, 
,*94, 
, *9C, 
, *A4, 
,*90, 
, *9A , 
, *BC, 
,*44, 
,*4C, 
,*54, 
,*DC, 
,*E4, 
,*EC, 
,*F4, 
,*FC, 


; SAJAT RUTIN 
PHA 

LDA DEVNR 
CMP #*04 
BNE RÉT 
STY PUFF 
PLA 
TAY 

LDA TABL.Y 
LDY PUFF 
JMP IECBU 
RÉT JMP CHROU 
PUFF .BYTE 00 

■ INICIALIZALAS A VALÓS CÍM SZERINT 

f 

LDA #*00 
LDY #*C1 
STA MUTLO 
STY MUTHI 
RTS 
• END 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



Végül néhány megjegyzés, vagy ha úgy tetszik jótanács: 
Az ékezetes billentyűk kiosztását visszafejtve, az enyhén 
szólva kissé eklektikus. Ugyanis nem tesz eleget a következő 
,,hármasszabálynak”: 

Az ékezetes billentyűkiosztás legyen; 

1. logikus, ergo 

2. könnyen megjegyezhető, és végül 

3. ne kelljen ,,akkordot fogni” egy-egy ékezetes karakter 
,, megszólaltatásához”. 

Jómagam az alábbi billentyűkiosztást dolgoztam ki: 

AETYUIOP® 

C= áéűüúíóöő 
CTRL Á É ÚÜ Ű í Ú ÖŐ 


(A CTRL kódtábla átírása sem ördöngösség.) 

A fentiek szerint, ha sikerül a címeket és a rutinokat 
PLUS/4-re „váltani”, problémája megoldható. Ám sokkal „ele¬ 
gánsabb” és teljesebb megoldás a „betölthető” karakterek alkal¬ 
mazása. 

Ezzel a módszerrel ugyanis a hosszú, kettős ékezetek is 
(ő;ö;ű;ü) előállíthatok. 

Az EPSON FX 80 emulációt kell választani, és az ékezetes 
karaktereket az ASCII 161—185 közötti tartományba kell be¬ 
tölteni. 


A gépi kódú megoldást a 3. lista tartalmazza. Sajnos csak 
a C64-re írott, de bőven kommentált változatot tudom prezentál¬ 
ni. A zárójelben lévő címek a KERNAL ugrótábla címei. Remé¬ 
lem ez is megkönnyíti az átírást. 


Jó és sikeres munkát kívánva üdvözli: 

Szász Sándor 


L 33 




L 


o 


0 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


LISTA 


EK/64/EPS0N 


O 


o 


*=*C000 

; KONVERZIÓS KÓDTÁBLA q 

TABL .BYTE *00,*01,*02,*03,*04,*05,*06,*07 

.BYTE *08,*0?,*0A,*0B,*0C,*0D,*0E,*0F Q 
•BYTE *10,*11,*12,*13,*14,*15,*16,*17 
.BYTE *18,*19,*1A,*1B,*1C,*1D,*1E,*1F 
•BYTE *20,*21,*22,*23,*24,*25,*26,*27 
. BYTE *28, *29, *2A, *2B, *2C., *2D, í2E , *2F 
.BYTE *30,*31,*32,*33,*34,*35,*36,*37 
.BYTE *38,*39,*3A,*3B,*3C,*3D,*3E,*3F 
.BYTE *40,*61,*62,*63,*64,*65,*66,*67 
.BYTE *6B,*69,*6A,*6B,*6C,*6D,*6E,*6F 
.BYTE *70,*71,*72,*73,*74,*75,*76,*77 
. BYTE *78,*79,*7A,*5B,*5C,*5D,*5E,*5F 
.BYTE *60,*61,*62,*63,*64,*65,*66,*67 
.BYTE *68,*69,*6A,*6B,*6C,*6D, *6E,*6F 
.BYTE *70,*71,*72,*73,*74,*75,*76,*77 
. BYTE *78,*79,*7A,*7B,*7C,*7D,*7E,*7F 
.BYTE *80,*81,*82,*83,*84,*85,*86,*87 
.BYTE *88,*89,*8A,*8B,*8C,*8D,*8E,*8F 
.BYTE *90,*91,*92,*93,*94,*95,*96,*97 
. BYTE *98,*99,*9A,*9B,*9C,*9D,*9E,*9F 
. BYTE *A0, *A 1 , *A2, *A3, *A4 , *A5, *A6 , *A7 
.BYTE *A8,*A9,*AA,*AB,*AC,*AD,*AE,*AF 
.BYTE *B0,*B1,*B2,*B3,*B4,*B5,*B6,*B7 
. BYTE *B8, *B9 , *BA , *BB , *BC , *BD, *BE, *BF 
•BYTE #C0,*41,*42,*43,*44,*45,*46,*47 
.BYTE *48,*49,*4A,*4B,*4C,*4D,*4E,*4F 
. BYTE *50,*51,*52,*53, *54, *55 , *56, *57 
.BYTE *58,*59,*5A,*DB,*DC,*DD,*DE,*DF 
.BYTE *E0,*E1,*E2,*E3,*E4,*E5,*E6,*E7 
.BYTE *E8,*E9,*EA,*EB,*EC,*ED,*EE,*EF 
•BYTE *F0,*F1,*F2,*F3,*F4,*F5,*F6,*F7 
.BYTE *F8,*F9,*FA,*FB,*FC,*FD,*FE,*FF 


SAJAT RUTIN 


430 

PHA 


440 

LDA 

#9A 

450 

CMP 

#*04 

460 

BNE 

RÉT 

470 

STY 

PUFF 

480 

PLA 


490 

TAY 


500 

LDA 

TABL,Y 

510 

LDY 

PUFF 

520 

JMP 

*EDDD ; 

530 

RÉT 

JMP *F1CD ; 1 

540 

PUFF .BYTE 00 

550 

5 


560 

; CTRL KÓDTÁBLA 

570 

; 


580 

KOD 

.BYTE *FF,*FF 


IEC BUSZ 
CHROUT RUTIN 


O 


o 


o 


o 


o 


o 


o 


SORA 


C 590 
600 
610 
620 
- 630 
640 
0 650 
660 
670 
q 680 


.BYTE *1C,#17,*AD,*9F,*1A,* 13,*AC,*FF 
.BYTE *9C,*12,*04,*1E,*03,*06,*A5,*18 
. BYTE * 1F,*B4,*07,*9E,*02,*08,*B5,*16 
.BYTE *12,*A1,*0A,*92,#0D,*0B,*B6,*0E 
.BYTE *FF,*AA,*0C,*FF,*FF,* 1B,*A7,*FF 
.BYTE *1C,*FF,* 1D,*FF,*FF,* 1F,*1E,*FF 
.BYTE *90,*06,*FF,*05,*FF,*FF,*11,*FF 
.BYTE *FF ; FONTOS BYTE !! 


CTRL RUTIN 


O 


o 


o 


o 


o 


o 


o 


o 


690 ; 
700 LDA 
710 CMP 


*028D 

#*04 


"CTRL LENYOMVA ?" 


6 










EGYESÜLET 


CK 


o 

720 

BEQ 

RUT 


730 

JMP 

*EB4B ; NINCS 


740 

RUT 

LDY *CB ; IGEN 

o 

750 

LDA 

KOD, Y 


760 

JMP 

*EAE4 

G 

770 

5 


780 

; KAR.GÉN. MÁSOLÁS 


790 




800 

SEI 

; SYS 49516 

o 

810 

LDA 

#*33 


820 

STA 

*01 


830 

LDX 

#*00 

o 

840 

LDY 

#*08 


850 

FÓR 

LDA *D800,X ; KARAKTER GENERÁTOR 

o 

860 

CÉL 

STA *E800,X ; RAM 

870 

INX 



880 

BNE 

FÓR 


890 

INC 

FOR+2 

G 

900 

INC 

CEL+2 


910 

DEY 



920 

BNE 

FÓR 

O 

930 

LDA 

#*37 


940 

STA 

*01 

O 

950 

CLI 


960 

5 



970 

j ekezetes karakterek töltésé 

O 

980 

9 


990 

LDX 

#*00 


o 


o 


o 


o 


1000 

MÓD 

LDA EKE,X 



1010 

STA 

*EB08,X 



1020 

LDA 

#ÍFF 


G 

1030 

SEC 




1040 

SBC 

EKE, X 



1050 

STA 

*EF08,X 

; INVERZ KARAKTEREK 

O 

1060 

INX 




1070 

CPX 

#*C8 



1080 

BNE 

MÓD 


O 

1090 

LDA 

#*C4 ; MUTATOK ÁTÁLLITASA 


1100 

LDX 

#* 1B 


O 

1110 

STA 

*0288 


1120 

STA 

*DD00 ; 

ClA REGISZTEREK 


1130 

STX 

*0018 



1140 

LDA 

#*5A 


O 

1150 

LDX 

#*C1 



1160 

STA 

Í028F 



1170 

STX 

*0290 


O 

1180 

JMP 

*E544 ; 

KÉPERNYŐ TORLES 


1190 

5 



O 

1200 

; EKEZETES KARAKTER ADATOK 

1210 

5 




1220 

EKE 

.BYTE *79 

,*33,*32,*30,*30,*30 

*78,*00 


o 


o 


o 


o 


o 


1230 .BYTE *0C,*18,$00,$38, * 18, * 18,*3C,*00 
1240 .BYTE *33,*66,*00,*66,*66,*66,*3E,*00 
O 1250 .BYTE *33,*66,*Ba,*3C,*66,*66,*3C,*00 
1260 .BYTE *63, *C6 , $00, *C3, *C3,*C3, *7E, *00 
1270 .BYTE *CC,*CC,*33,*33,*CC,*CC,*33,*33 
O 1280 .BYTE *33,*66,*00,*7E,*C3,*C3,*7E,*00 
1290 .BYTE *00,*00,*00,*00,*00,*18,*18,*30 
1300 .BYTE *00,*00,*18,*00,*00,*18,*00,*00 
O 1310 .BYTE *66,*66,*00,*7E,*C3,*C3,*7E,*00 
1320 .BYTE *18,*18,*18,*1F,*1F,*15,*18,*18 
1330 .BYTE *06,*7E,*6C,*60,*78,*60,*7E,*00 
O 1340 .BYTE *1B,*3F,*66,Í7E,*66,*66,*66,*00 
1350 .BYTE *00,*00,*00, *F8,*F8,*18,*18,*18 
1360 .BYTE *66,*66,*00,*3C,*66,*66,*3C,*00 
O 1370 .BYTE *0C,*18,*3C,*06,*3E,*66,*3E,*00 
.BYTE Í0C,*18,*3C,*66,*7E,*60,*3C,*00 
.BYTE *00,*00,*00,*FF,*FF,*18,*18,*18 
.BYTE *1B,*18,*18,*F8,*F8,*18,*18,*18 
. BYTE *66 , *66 , *00, *C3, *C3 ,*C3, *7E, *00 
■ BYTE * 18,* DB,*DB,*C3,*C3,*C3,*7E,*00 
.BYTE *18,*7E,*DB,*C3,*C3,*C3,*7E,*00 
.BYTE *66,*66,*00,*66,*66,*66,*3E,*00 
.BYTE *0C,*18,*00,*66,*66,*66,í3E,*00 
. BYTE *0C ,*18, *00, *3C, *66 , *66 , *3C, *00 


O 


O 


0 


1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 ; 

1500 LDA #*01 
1510 LDX #*04 
1520 LDY #*00 
1530 JSR *FE00 
1540 LDA #*00 


printer előkészítés.- sys 49796 


(*FFBA> 


o 

o 

o 

o 

o 

o 

o 

o 

c 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1550 

JSR 

*FE18 ; (*FF90) 

O 

1560 

JSR 

*F34A s (*FFC0) 

1570 

LDX 

#*01 


1580 

JSR 

*F250 ; <*FFC9) 

O 

1590 

1 


1600 

; EKEZETES KARAKTEREK TÖLTÉSÉ 

PRINTERBE 

1610 

5 



1620 

LDA 

#*C1 


1630 

LDX 

#*C2 


1640 

STA 

*F7 

0 

1650 

STX 

*F8 


1660 

FI 

LDY #*00 


1670 

LDA 

(*F7>,Y 

O 

1680 

CMP 

#*FF 

1690 

BEQ 

F2 


1700 

JSR 

*EDDD j IEC BUSZ 

O 

1710 

INC 

*F7 


1720 

BNE 

FI 


1730 

INC 

*F8 

G 

1740 

JMP 

FI 


1750 

F2 

LDA #*00 


1760 

LDX 

#*C1 

o 

1770 

STA 

*0326 


17B0 

STX 

*0327 


1790 

1800 

RTS 

S 


o 

1810 

; EPSON K0D0K 

o 

1820 

; 


1830 

• BYTE *18,* 1B,*3A,*00,*00 


1840 

.BYTE *00,* 1B,*26,*00,*A1,*B9 

o 

1850 

.BYTE *80,*00,*00,*82,*00,*FE 

1860 

. BYTE *00,*82,*20,*40,*80,*00 


1870 

.BYTE *80,*00,*22,*00,*3E,*40 

o 

1880 

. BYTE *82 , *00, *00, *00, *00, *00 


1890 .BYTE *80,*3C,*02,*40,*82,*00 
1900 .BYTE *42,*80,*3C,*02,*00,*00 
1910 .BYTE *80,*IC,*22,*00,*62,180 
1920 .BYTE *22,*40,*A2, * IC,*00,*00 
1930 .BYTE *80,*7C,*02,*00,*C2,*00 
1940 .BYTE *C2,*00,*02,*7C,*00,*00 
1950 .BYTE *80,*00,*IC,*22,*00,*22 
1960 .BYTE *14,*08,*14,*22,*00,*00 
1970 .BYTE *80,*3C,*42,*00,*E2,*00 
1980 .BYTE *E2,*00,*42,*3C,*00,*00 
1990 .BYTE *00,*00,*00,*0C,*01,*0E 
2000 .BYTE *00,*00,*00,*00,*00,*00 
2010 .BYTE *80,*00,*00,*36,*00,*36 
2020 .BYTE *00,*00,*00,*00,*00,*00 
2030 .BYTE *80,*3C,*42,*80,*42,*00 
2040 .BYTE *42,*80,*42,*3C,*00,*00 
2050 .BYTE *80,*00,*00,*E0,*00,*00 
2060 .BYTE *00,*E0,*00,*00,*00,*00 
2070 .BYTE *80,*3E,*00,*2A,*00,*2A 
2080 .BYTE *40,*AA,*00,*22,*00,*00 
2090 .BYTE *80,Í0E,*10,*28,*40,*88 
2100 .BYTE *40,*28,*50,*8E,*00,*00 
2110 .BYTE *00,*00,*00,*00,*6C,*01 
2120 .BYTE *6E,*00,*00,*00,*00,*00 
2130 .BYTE *80,*1C,*22,*80,*22,*00 
2140 .BYTE *22,*80,*22,*IC,*00,*00 
2150 .BYTE *80,*04,*0A,*20,*0A,*60 
2160 .BYTE *8A,*20,* IC,*02,*00,*00 
2170 .BYTE *80,*1C,*22,*08,*22,*48 
2180 .BYTE *A2,*08,*22,*18,*00,*00 
2190 .BYTE *80,*00,*00,*00,*00,*00 
2200 .BYTE *00,*00,*00,*00,*00,*00 
2210 .BYTE *80,*00,*00,*00,*00,*00 
2220 .BYTE *00,*00,*00,*00,*00,*00 
2230 .BYTE *80,*7C,*02,*00,*82,*00 
2240 .BYTE *82,*00,*02,*7C,*00,*00 
2250 .BYTE *80,*FC,*02,*00,*02,*C0 
2260 .BYTE *02,*00,*02,*FC,*00,*00 
2270 .BYTE *80,*3C,*42,*00,*42,*A0 
2280 .BYTE *42,*00,*42,*3C,*00,*00 
2290 .BYTE *80,*3C,*02,*80,*02,*00 
2300 .BYTE *02,*80,*3C,*02,*00,*00 
2310 -BYTE *80,*3C,*02,*00,*42,*80 
2320 .BYTE *02,*00,*3C,*02,*00,*00 
2330 .BYTE *80,* IC,*22,*00,*22,*40 
2340 .BYTE *A2,*00,*22,* IC,*00,*00 
2350 .BYTE *1B,*25,*01,*00,*11,*FF 
2360 .END ; #50174 


O 


O 


O 


0 


O 


O 


O 


O 


G 


O 


O 


O 


READY. 


7 


o 















EGYESÜLET 


Cr 

Tisztelt Szerkesztőség! 


Egy újabb játékprogramot szeretnék felajánlani a COM¬ 
MODORE Újságban való közlés céljára. 

A játék neve: ClMBO-64 

A játék a TV-ból is ismert játék C-64-es változata. 

A játék rövid ismertetése: 


A tábla 45 mezőből áll. Amelyik mezőn van korong, az sár¬ 
ga, amelyiken nincsen, az szürke színű. Egy korongot úgy vehe¬ 
tünk le a tábláról, hogy egy mellette lévő koronggal átlépünk fe¬ 
lette, egy olyan helyre, ahol nincs korong. Átlépni vízszintesen, 
függőlegesen, vagy átlósan lehet. 

A játékidő 4 perc. A cél, hogy minél kevesebb korong ma¬ 
radjon a táblán. 

Tisztelettel: 

Haraszti Árpád 


O 

O 

o 

O 

o 

o 

0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

c 

o 

o 


4 

5 

6 
7 
l 0 
45 
50 
55 
58 
68 
65 
78 
75 
88 
81 
82 
83 
188 
182 
185 
188 
118 
115 
128 
125 
13© 
135 
148 
145 
158 
155 
168 
165 
1 78 
172 
175 
188 

183 

184 

185 

186 

187 

188 
188 
132 
193 
195 
200 
218 
215 
218 
228 


238 

231 


234 

235 

236 

237 
240 
408 
481 
402 
485 
500 
585 
518 


RÉM * * * * ** * * * ***** * * * * * * * 

RÉM * C= U-JSRG 1993 * 

RÉM * * 

RÉM * CIMBO * 

RÉM * * 

RÉM * MRRrtSZI1 REPRÓ * 
RÉM * * * * ** * * * * * * * * * * * * * * * 


í uk i = ti 03 •• tir <; i hrr.rsz i i 

KOKÉ 53288,8=KOKE53281,0 
ÓIM Rí<.45> , R<45> , B<.45> ,C<.99> 
GOSUB 175 : GOSUB 185 

print"Cibwibibíbsbi tnat-'isss - strrt 

PRINVBI - S2RBRLVUR" 

pkImi ".w nuFsau - top List •• 

PR INT "Bt S1SE 7SBS - KILÉPÉS" 

GETRÍ IFRí=""THEN 88 
IF Rí* 1 "Bt" THEN 880 
IF R4="S*"IPIEN 308 
IF Rí="*t" (HEH EHD 
Xlí=‘‘ "P 

X5 4 


SOFT" ■ MV 1 ;• = 45 • ttEXT 


24="B***»»*»t" 

X6í=" .- 


Í34=X 1 4+ * 


fii t “ +X2Í+ " I! 


t4í=X3í+ • 


:RC=44 


M' 


rn t 


t 


—,ttii 

-.a; i tűt i 


tilt 
F—t 
t t 


54; X54 


PR. I NT " "1" X1 í " t'l 
KRIMI "PJU1ENU 
PR. INT " MTESZ •• " 1 
pRiMTXií" i 
PR l NTXI4“ I /-*- 
PR1NTX1Í" H"X2í" ISSÜüF’ 

PR INTX1 í " SS ■—-JfM " X24 “ S SS F- 
PRINTX4Í > PR.INTX44 PRÍM I 
PR 1 NT " ÜT X64 - X24 , X54 " SS 1 " 

F OR 1 = 1 T06 PR. 1 NT " TI I " X24 , X24 ; 

PR 1 NT " 51" X54; X24 í X64 “' ül ESS- Bt" 

PRINTX34" Kil'MEr" 

TOR 1 = 11 05 = F'R 1.NTX44 •• NEXT 
PR.INTX14" SI"X5*"Wh ' H rt!F “ 

PR 1 N T " rm S9-IRR.RS2 TI" PR 1N I " 

GOSUB193•GOTO 195 
X4="S» tBKSI" 

FÓR 1 = 1 TQ45 Rít. I >=X4+RIGHT4CS TRÍ <. l>,2> 

NEXT 

RÉTIJÉN 

POR 1 = 1 T045 • PERU R, 8 • R < 1 ;< =R • B < I ;• =B ’ NEX 
ORTR 12/4/15,4,18/4/12/6,15,6.18/6,12 
ŐRTR15,18/18/10/21/18,24/10,27,10,3,1 
0RTR24,12,27/12,3,14,6,14,3,14,12,14, 
ORTR 12, 16, 15,1.6, 18, 16, 12, 18, 15, 18, 18, 
RÉTURH 


! r 


t SS I": NEXT 1 


OFTMRR.E" PR. INT 


190 : 


T 

,8,15, 
2 / 6 / le 
15/14/ 
18/ 12./ 


8/18,8/3/10/6,10/9/18/12,10 
,9,12,12,12,15,12,18,12,21 ,U 
18,14,21,14/84,14,27,14 
28, 15,20, 18,2:0 


RE I URH 
•POKE214 


= C<. l.« = l 1 NEXT 
; POKE211 , H I 
® ;; 

; P0KE214,1 í SYS58T 
=.THEN 215 


BT I > 

m 

PR INT 


SYS587: 


aE'R.E:- 


52•PR IN I ' 
RNV KEV 


rtf <«»**'. 


1 P0KE211, R< R;« = POKE214, B<R ;< = SYS58732 


TOR 1 = 11045 
F OR1 = 1 1045 
PR. INT " BIBIÖW 
P0RE211,24 
OE t H4 ■ IP Rí- 
R= INT <.44KtRN0<: 1 > >+l 
PRINT" SRONNRN ' 

PR 1NTTRBT 24 “ atHOVR 
F'R. 1 NT " SS" Rí C H ;< • C < R > =8 
T14="080080“ 

GET H4•GOTO 960 
IF C2=2 THEN FOKÉ 211,35 
1F H4=CHR4 C137HNOS2>0HNO> 

1F R4--CHR4 < 13 > RNDS2>0RNÜ‘ 

IF R4=CHR4<. 13> THEN 237 
IF Rí-O " “ THEN IF F'XOl THEN PX=l > S2=VRLCRí > • GOTO 231 
I FRÍ O " " THEN 82= 18*S2+VHLCRí ;< • PX=0 
IF S2>0RHÜS2C46 THENP0K.E211,34 ' P0KE214,19+02 
IF C2=8 THEN FOKÉ 211,35 POKE.214, 18 SYS5873 
F‘2=36— < CVRLCM104<T 14,4, 1 ;< >*9 ;>-+ <VRL<M104<. T Ií 
P0KE211 , P2 : POKE214,84 = SYS58732 PR. INT"* 

ÍF PC=0 THEN 5880 
GOTO 238 

24=T 14 •• POKE 211,34 •• P0KE214,21 SYS58732 ' F'R INT “Üt 
IF CCS2>=1 THEN GOTO 238 
IP CCS1>=0 THEN GO 10 230 


Ml" Hí v I NEXT 
5 ■ PX=0 '■ 08=8 • S1 =8 '• 

< iiiiiwniiittitKaílatiwwístiT 


>P0KE214,28 

58<46RNDCCSi 

>2-C46RNÜ02»l 


SY858732 : 
! ,< = 1RNUC2= 
: IHENS2=Se 


PR INT' 
0 THEN 

: •px=8 


BLMIÜta 

■j i =s; 

0 ' CZ=0 




'■*». rí 

: = PX=0 : 82=0 
GOTO 508 


"SÍ 


= SVS587: 
■- ■ PR INT 
■ 5,2 >> >, 


•«l" 


'«< 


PR. INT 1 

bum tar ' p.maait met 

: IF P2<8 THEN50O0 


C~ 8 

_ 











EGYESÜLET 



o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


515 
518 
528 
521 
525 
600 
602 
605 
608 
610 
700 
785 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
800 
810 
815 
820 
825 
830 
835 
840 
845 
850 
860 
865 
870 
800 
882 
805 
810 
82« 
825 
830 
835 
840 
342 
944 
850 
360 
962 
865 
970 
1 000 
1010 
1020 
1030 
1 040 
1 100 
1 110 
1 120 
1130 
1 140 
1150 
1 200 
1210 
1220 
1.230 
5800 
50 10 
5020 
5025 
5030 
5040 
5050 
5055 
5060 
5065 
5070 
5075 
5880 
5100 
5110 
5120 


csi;'=0-c<.82;«=i 
<; s í > =0 - c 1 32 >=i 


RESTURE * FÓR 1 = 1 YO90 = RERDR NEXT 
FÓR 1=1 TO 93=RERDR,8,C 

1F S1=R RRD 82*8 RHO C<C>«1 1HEN CCO*8'-C 
1F S2=R RHO 81=8 RHO CCC>=1 THEN C<C>*0‘C 
NEXT=GOTO 230 
PGKE211 , R <: 81 :• = PQK.E214, B< S 1 > > 8VS58732 = PR £ NT "53" RT- <81 
P0KE211,35 PQK£2l4,2l ■ SV8587S2 > PR INI “ 

P0KE211 ,RCS2> = POKE214, B<.S2> = SVS58732 = PR1NT“ST«T<S2 
POKE211 / R< S3> = POKE214 # 6< 83 > * 8VS58732 = PR 1 RT " 53“ RT- < 83 
TIT=Z*‘GOTO 238 

DRTR i, 3,2, i, 9,5, 1,7,4,2,8,5,3,9,6,3,7,5,4 


83=0 

83=0 


= GOTO 
= GO I 0 


600 

600 


;* PC=PC 


O 


O 


0 


13 


.4, 


, 8,8,7 
- 26 
28. 


15,8/4/6/5/5/14/8 
*-0 / 1 / < , 22, 18 / 7 , 24, 14/8/21/ 18 

16/10/12,11,10,28/19/10/30,20 


20 , 

3©, 


35,25 


22 , 21 / 81 / 28/22 
32,31,3 1 ,33,32 
37,31 

44,41,38/45,42 
45,41,33,43,41 


DRTR 5,12,7,5,16,8/6/13,8/6/15,8 
ÜRTR8,23,14,8,25/15,3,22/14,8,24,15,3 

DRTR 11,13,12,11,28,20,11,31,21,12,28,20,12,80,21,12,32,22,13,28,21 
DRTR13,31,22,13,33,23,14,30,22,14,32,23,14,34,24,15,31,23,15,33,24,15 
OR t R16,82,24* ,16,84,25,16,36,26 , 1 (' , 83,25, 17,35,26 ,18,34,26,18,36,2 7 
ÖRTR12,14,13,13,15,14,14,16,15,15,17,16,16,18,17,13,21,20, 

OR i H22,24 , 23,28 , 25,24,24,26,25,25,27,26,28,30,28,28,81,30 , 

ÜR l H82,84,88,88,85,84,84,86, -85,87,88,88,40,42,41,43,45,44 , 

OR I R28,38,82, 24, 38,88,81,40,3 7,32,41,38,33,42,38,37,43,4-0, 

0RTR21,38,31,22,33,32,24,37,32,25,38,33,31,42,38,33,40,38, 

DRTR 34,41,38,30,41,37,39,26,34,20,37,30,21,38,31 
PR. I RT «3 StiíZRBRLYOK • “ 

PRIRT "Xtlflül R YRBLR 45 MEZŐBŐL RLL. AMELYIK MEZON" 

PR.ÍRT"JSfVRN KORONG, RZ SRRGR, RMELY1KEN NINCS," 

PRINT“MÁZ SZÜRKE. EGY KORONGOT OGY VEHETÜNK LE" 

PR.INT"MR TRBLRROL, HOGY EGY KORONGGRL ÁTLÉPÜNK" 

PR INT “ MFULO’f VE EGY OLYRN HELYRE, HHOL NINCS" 

P'R 1 NT " .NKÜRONG . RTLEPN1 VÍZSZINTESEN, FÜGGŐ--" 

PRXNT“ WLEGESEN, VRGY ÁTLÓSÁN LEHET'. " 

PRINT'ISW® LEL WIINEL KEVESEBB KORONG MARADJON" 

PR INT"UH IRBLRN. TJHTEK1ÜO PERC." 

PRINT”WWW PRESS RNY KEY !", 

GET RT = IP AT=" " VHEN865 
GOTO 60 

PR INT" l'STl .•-s" 

PR INT" t 3T1GP LISVíil I" 

PR INI “ .■— 1 1 -, >—^ “ 


!*s" i."«. ra t 


i 


t " NEXT 


FÓR1 = 1 VG 9SPRINT" 

PRINT" ■- J - 

PRlNT"«W«h." : POR. 1 = 1 109 ■ PRINT , **»*****»»»#I"NSK 1 ;< • NEKI 
PR IN 1 "«««=•" FÓR. 1 = 1 109 • FRlNi 

print " KmummoF isbs - lord top araFsss*. - srve top ae«F5«ss . 

GE T RT IFRT*" “ THEN940 


. > NEXT 
MENÜ “ 


1 000 
1100 


=0•GOTO 


30 


* 0 = CIMBO— TOP, S, R " •• GOSOB 1200 


W" GOSOB1200 


IF RT= ■"IRÉN 
IF RT-=" S“ ÍREN 
GOTO 60 

IF RT=“M"THEN 60 
IF HT="S"THEN PX=0 
IFAT="K"THEN 5000 
GOTO 231 

OPEN15,8,15=OPEN2 
1F VC=2THENVC=0 = GOTO1150 
FORÍ = ir09 = INPUT42, NT<; l ;• 

INPUT42,M<I> 

NEXT1=GOTO 1150 

OPEN15,8,15 = OPEN2,8,2,"00 = C1MBO- TOP 
1P VC =2THENVC=0 = GOT01150 
FÓR 1 = 1 T09 « PR IN i 42, NT< l;« 

PR INI 42, M<. I ;< 

NEXT I 

CL0SE2=CLOSE2,8,2'CLUBÉI5 
PRINT"3" =R=0 = B=0 = 0=0 = BT=" 

PR. 1 NT " rau 1SK-HIBH * " 

GET RT- = IFRT=" “ THEN 1220 
VC=2 = CL0SE2 = CL0SE2,8,2 = CLO 
PR INT “3 SJGRME OVER « “ 

PR INT "WWW = IP PZ<0 THEN PK.1NI "m 
PR INT"•UMMW*PC" UB KORONG MRRRDT 
FÓR 1 = 1 TO 10 = GETRT NEXT I. 

IF POM<9> THEN 5100 

PR INT ELKERÜLT R TOP LISTRRR >. " 

INPUT " lUíst'11 R NEVE “ , NT 

IF LENINT>> 14 THEN PRlNT“.*rrTn" = GOTO5840 
M <. 9 > =PC = DF = 1 = NT <. 9 ;• =NT- 
FORI*0TO45=FORR*1T09 

IFMTR>= ITHENOTOP >=«<«> =OTCOF )*HT<;«> =OP=OF + l 
NEXTR = NEXT 1. 

POR1=1T09 NTCl>*DTC1>=MCl>=U<1>=NEXT1 
PR INT" PRESS RNV KEY 

GETRT=IFRT*""THEN 5110 
GOTO 60 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


‘GOTO 900 
1 =INPUT415,R,BT. 


0 = IP R>=0 RHO HC=19 THEN REVORN 


E15 = RÉTURH 

LEJÁRT RZ ÍOO 


O 


IP OP = 10 THEH 5080 


O 


RERDY 



9 rküRUAF- 
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TRIAGRAM 3D 


diagramszerkeszto leírása és kezelése 


Oktatásban, vállalkozásban és 
még az élet számos más területén 
hasznosan alkalmazhatjuk a diagra¬ 
mokat, amelyek segítségével adatso¬ 
rokat, folyamatokat tehetünk szemlé¬ 
letessé. 

A TRIAGRAM program ezt teszi 
lehetővé és mellékesen még némi 
adattárolásra is felhasználható. 

Újszerű a programban az, hogy 
egy képernyőn, egy koordináta rend¬ 
szerben három diagramot szerkeszt 


meg három színben és háromdimen¬ 
ziós kirajzolásban. 

Egy-egy diagram max. 24 osz¬ 
lopból állhat. Magasságuk értéke 1— 
99999 között tehát max. ötjegyű szá¬ 
mokkal adható meg. Megadható egy 
20 karakteres szöveg, amely lehet a 
cím, illetve egy rövid információ, to¬ 
vábbá mindegyik oszlopsorhoz egy 7 
karakteres megjegyzés is. 

Az adatok és a szövegek leme¬ 
zen tárolhatók és szükség szerint is¬ 
mételten behívhatok és kirajzolhatok. 

A program felhasználó-barát. 
Használatát a képernyőn megjelenő 
MENÜ, tájékoztatások, hangjelzések 
segítik. 


Ellenőrzi a lemez, ill. a meghaj¬ 
tó állapotát, az eredményt vagy a hi¬ 
bát kiírja a képernyőre és vár a kija¬ 
vításra. 

A program használatához szük¬ 
séges eszközök: 

1. COMMODORE C-64 tip. szá¬ 
mítógép 

2. Lemezmeghajtó (floppi drive) 

3. Monitor, ill. TV-készülék (lehe¬ 
tőleg színes) 

A programot tartalmazó lemezen 
található meg négy DEMO adatállo¬ 
mány, amely betöltve négyféle fel¬ 
használási módot mutat be. Termé¬ 
szetesen ezeken kívül még számos 
lehetőség is adódik. 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


******************************* 


triagram 


3d 


1 rém 

2 rém * 

3 rém * 

4 rém * * 

5 rém * c-64 harna m. andras * 

6 rém ******************************* 


7 poke 53281,0: poke 53280.0: 

8 dlm a(no,ns): return 

9 poke 211,o: poke 214,s: sys 58732: 

10 z-0: sz$="": rém get rutin 

if z=nc+l then 70 
print chr$(18)chr$(62)chr$(146) 
get g$: if g$-"" or g$=chr$(34) 


poke 808,227: poke 657,128: goto 80 


20 

23 

25 

27 

29 

35 

38 

41 

50 

55 

60 

70 

80 

85 

90 

99 

100 
110 
120 
130 
140 
150 
160 
200 
205 
210 
215 
220 
225 
230 
235 
240 


return 


then 25 


50 


if g$="[Dwn[" or g$="(Up)" or g$= 
if z>0 and g$=chr$(20) then 60 
if asc(g$)>ak and asc(g$)<av then 
if g$Ochr$(13) then 25 
goto 70 

z=z+1: sz$-*sz$+g$ 

print chr$(157)g$;: goto 20 

z=z-l: sz$-left$(sz$,z): goto 55 

print chr$(157)" ": return 

tg$="tova[Up][Lft].[Dwn]bb: egy gomb 

si=54272 

kr$="[Clr][Yel][10: [krampusz 
rém .- - - foprogram — — — 


gosub 

gosub 

i f ta- 

gosub 

gosub 

gosub 

gosub 

print 

print 

print 

print 

print 

print 

print 

print 

print 


1900: rém 
1700: rém 
■1 then 300 
rém 
rém 
rém 
rém 


cimkep 
uj/tarolt 


adat beadas 
elokeszites 
szövegek 
kirajzolás 


1400 
1200 
1000 
800: 
kr$ 

tab(9)"[3:Dwn)U[2:s*]I[4: ) . ” 
tab(9)"BflB vege. uj triagram' 
tab(9)"J[2:s*]K" 
tab(9)"U[2;s*]I" 
tab(9)"Bf3B adat lista" 
tab(9)"J(2;s*]K" 
tab(9)"U[2:s*]I 19: ] . ” 
tab(9)"Bf5B kimentes lemezre" 


O 
O 

o 
o 
o 

[Rgt]" or g$-"[Lft[" then gosub 560: goto 25 o 

O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 


! [Up) 


o f t(8: ][2:Dwn][Wht] 


Cs 10 







TRIAGRAM 3D diagramszerkesztő program felépítése 


A programot készítette: Harna M. András, 1993. augusztus. 
Konfiguráció: 


1. C-64 tip. számítógép 

2. 1541 tip. floppi drive 

3. Monitor vagy TV-készülék 
BASIC 

8100 byte, lemezen 32 blokk 290 prg. sor. 

Lemezen SEQ-FILE-ban 
Billentyűzetről 

A program egy FÖPROGRAM-ból, az általa hívott szubrutinokból és egy MENÜ-ből hívható programrészekből áll. 

A prg. felépítése sorszám szerint: 

Lista cím. 

Színbeállítás. RUN/stop és C=/SHIFT gombok letiltása. Innen a 80. sorra lép. 

DIM szubrutin 

Pozíció szubrutin 

GET szubrutin 

Állandók. Továbblépés kiírás. SÍD alapért. Képernyő fejléc. 

FŐPROGRAM 


Programnyelv: 

Hossza: 

Adatok tárolása: 
Kezelés: 


1—6 

7 

8 
9 

10—60 

80—90 


100 

110 

130 

140 

150 

160 


Gosub 1900 
Gosub 1700 

Gosub 1400 
Gosub 1200 
Gosub 1000 
Gosub 800 


Hívja a címképet. Innen hívható az egy képernyőnyi INFO. 

Választás, hogy új vagy tárolt adatokkal dolgozzon. 

120 Ha tárolt, akkor a 300. sorra lép. 

Új adatok bekérése. Hívja a GET-rutint. Hibás adatok kizárása. 

Előkészíti a koordináta rendszert és a 3D-s oszloprajz karaktereit. 

A képernyőre írandó szövegek. Kiírások függőlegesen. 

A beadott vagy behívott adatok alapján szerkeszti és kirajzolja a TRIAGRAM-ot. 
Egy gomb leütésére a MENÜ-re lép. 


200—260 

265 


MENÜ 

A MENÜ képernyője. 

GET. Választás a funkció-gombokkal. 

A MENÜ SZERKEZETE: 


F7 leütésére: 
KIRAJZOLÁS 
140-es sorra lép. 


FI F3 F5 

BEFEJEZÉS ADATLISTA KIMENTÉS 

280 700 400 

280 Befejezi a programot. Oldja a letiltásokat. Előkészíti az újra futtatást. 

300 ADATBETOLTES Innen meghívható a DIRECTORY (600. sor) 

Bekéri a FILE nevet. 

Hívja DISK STATUS vizsgálást (500. sor). 

Kiírja az erdményt. Hiba esetén kiírja azt, majd várakozik a javításra. 
Betölti az adatokat és visszalép a MENÜ-re. 

400 ADATKIMENTÉS. Mint az előzőnél. 

500 DISK STATUS vizsgálat. 

550 Hangjelzés 1. GONG 

2. GRRRRR. Hibás beütés esetén. 

600 DIR kiíró rutin. 

700 ADATLISTA kiírás. Függőlegesen kiírja az összes adatokat és hozzájuk tartozó szövegeket. 

A helyérték helyes kiírást a LÓG függv. alkalmazásával pozícionálja. 


Néhány fontosabb változó: 


Pozicionáló rutin 
NO = oszlopok száma 
NS = sorok száma 
BN$ = Cím szöveg 
MJ$ (1) MJ$ (2) MJ$ (3) az oszlopokhoz 
MA = a legnagyobb oszlopérték 
A/NO, NS/tömbben tárolja az adatokat 


O = oszlop S = sor 
a TRIAGMRAM-ban 

tartozó megjegyzések 


A program természetesen továbbfejleszthető. A 300 soros limit miatt néhány rutin nem került be a programba. 
Néhány tipp a fejlesztésre: 

a) AÚTOSTART beépítése (az adatvédelem is megoldható). 

b) Adattárolás szalagon is. 

c) Az oszlopsorok színeinek megválaszthatósága. 

d) Az adatok utólagos módosíthatósága. 
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o 

o 

o 
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o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


pr int 
print 
print 
print 


tab(9)"J[2:s*]K" 
tab(9)"U[2:s*]I"spc(18)"." 
tab(9)"Bf7B triagram rajzolás" 
tab(9)"J[2:s*]K": gosub 550 


get g$: if g$=' 
if asc(g$)<133 
on asc(g$)-132 


" then 265 

or asc(g$)>136 then 265 
goto 280,700,400,140 

]ve[UpJ ILft).[Dwn]ge a programnak 


[Dwnjn me[Up](Lft).[Dwn]g egy [RvOn] 
n[3:Dwn]" 
run 


[2:Dwn) 


245 
250 
255 
260 
265 
270 
275 

280 print "[Clr][6:Dwn](4: 
poke 808,237: poke 650,0 

284 print tab(15)"[10:=P]' 

285 print " kiva[Up](Lft). 
triagram [RvOf]-ot ? i / 

286 get g$: if g$="i" then 

287 if g$< >"n" then 286 

288 print ”[3:Dwn)[5: ]viszont 1 a(Up](Lft).[Dwn] t a[Up][£,ft]. 

[Dwn] s r a ![3:Dwn]": end 

290 rém - 

print kr$ 

print " [RvOn][11: ] [=@] .[9: ] [-@] " 

print " [RvOn] adatok betöltése lemezről:" 
print " [27:-Y]" 
open 15,8,15,"i" 

open 2,8,2,fi$+",s,r": gosub 500: if h-1 then close 2: close 15: goto 110 
input#2,bn$: input#2,ma 
input#2,nc>: input#2,ns 
fór j=l to ns: input#2,mj$(j) 


300 

304 

305 

306 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
365 

369 

370 

371 
375 
395 
400 

404 

405 

409 

410 
412 
414 
418 
420 
430 
432 
435 
442 
444 
450 
453 
457 
460 

464 

465 

466 
470 
480 
500 
510 

515 

516 

517 
520 
525 
530 
550 
552 
554 


next j 


gosub 8 
if ns-1 
if ns=2 
fór i—1 
fór i=l 
fór i-1 
close 2: 
print 
print 
print 
print 


then 360 
then 355 
to no: 
to no: 
to no: 
close 
[2:Dwn] 
[RvOn] 


input#2,a(i,3) 
input#2,a(i,2) 
input#2,a(i,1) 

15 

[RvOn][4: ][«@] 
betöltés kész ! 


next 

next 

next 


[4: ] 


[16:- 

"tg$ 


U][3.-Dwn]" 
gosub 550: 


poke 198,0: wait 198,1: goto 200 


gosub 600: print kr$ 
print " [RvOn][14: ]. [11: ]" 
print " [RvOn] adatok kimentese lemezre: 
print "[2:Dwn] . [7: ]." 

print " kerem a tarolandó fiié nevet 
input " (max. 16 karakter) ”;fi$ 
if len(fi$)>16 or len(fi$Xl then 400 
open 15,8,15,"i" 

open 2,8,2,:"+fi$+",s,w": gosub 500: 
print#2,bn$: print#2,ma 
print#2,no: print#2,ns 
fór j=l to ns: print#2,mj$(j): next j 
then 457 
then 453 


![Dwn][7: ][s\] 


if h=l then close 2: close 15: goto 200 


to 

to 

to 


no: 
no: 
no: 


print#2,a(i,3) 
print#2,a(i,2) 
print#2,a(i,1) 


[Dwn] [RvOn] [7: ] . 

[RvOn] kimentes kész 
[16:-U][Dwn]gosub 


next 

next 

next 

. (4: ] 
! " 
550 


if ns=l 
if ns-2 
fór i-1 
fór i-1 
fór i-1 
close 2 
print 
print 
print 
print 
goto 200 

input#15,en,em$ .et.es 

if en=0 then print ”[2:Dwn] [RvOn] disk ok! [RvOf][2:Dwn]": h=0: gosub 550 
if en=62 then print "[2:Dwn] [RvOn] nincs ilyen fiié ![RvOf][2:Dwn]": got 
if en-65 then print "[2:Dwn][RvOn] nincs mar hely a lemezen ![RvOf]": goto 
print "[2:Dwn][RvOn] hiba a meghajtóban ![RvOf][2:Dwn]" 
gosub 560: print tg$: poke 198,0: wait 198,1 
close 2: close 15: h=l: return 


"tg$: poke 198,0: wait 198,1 


O 

O 

0 

0 

0 

o 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

o 

0 

0 

0 

o 


: return 
o 520 
520 


fór i=l to 24: poke si+i.0: next 

poke si+1,35: poke si+5,12: poke si+15,6: 

fór t-1 to 1500: next : poke si+4,20 


poke si+24.15: poke si+4,21 


G 
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C 

A PROGRAM KEZELÉSE: 

Betöltés után RUN-nal indítható. 

A program címképpel jelentkezik 
be. Innen kérhető egy rövid informá¬ 
ció (I vagy N gomb). 

Nemleges válasz vagy az infor¬ 
máció után a program megkérdezi, 
hogy új vagy a lemezen tárolt adatok¬ 
kal kíván-e dolgozni (U vagy T). 

ÚJ ADATOK BEADÁSA: 

1. SZÖVEG bekérés. Beírható 
egy max. 20 karakterből álló szöveg. 
A beírás után RETURN-al kell végle¬ 
gesíteni. A szöveg lehetséges hosz- 
szát egy ■ jel mutatja. Ennél hosz- 
szabb szöveget nem fogad el, ill. újra 
kéri. Téves beütést az INST/DEL 
gomb leütésével visszalépve lehet ja¬ 
vítani. 

2. OSZLOPSZÁM bekérés. A 
prg. bekér egy számot 1—24 között. 
Ez határozza meg, hogy egy sorban 
(diagramban) hány oszlop fog megje¬ 
lenni. A kiíráson kívüli más számot 
vagy jelet nem fogad el. Ilyenkor újra 
kérdez. A kurzor a téves beadáson áll. 
Ezt felülírva lehet a már helyes adatot 
beadni. 

3. SOROK SZÁMA. Bekér egy 
számot, amely 1—2—3 lehet. Ennek 
megfelelő számú sor (diagram) fog ki¬ 
rajzolódni. Egynél több sor esetén az 


1-es sor lesz a hátsó, míg a nagyobb 
számú sor lesz a hozzánk közelebb 
eső. 

Ezek után sorra bekéri az oszlo¬ 
pok magassági adatait. Beadható 
egy max. ötjegyű szám. Javítás az 
INST/DEL gombbal. Az ötödik szám¬ 
jegy után továbblép. Kevesebb szám¬ 
jegy esetén a RETURN gombbal le¬ 
het továbblépni. 

Ha egy sor összes adatai (a 2. 
pont szerinti számban) megvannak, 
bekér egy max. 7 karakterből álló szö¬ 
veget, amely a sorhoz tartozó meg¬ 
jegyzés lesz. Beírás mint az 1. pont¬ 
ban. 

Az adatbeadás befejezése után a 
program megszerkeszti és kirajzolja a 
TRIAGRAM-ot. A kirajzolás után egy 
gomb leütésére a MENÜ jelentkezik. 

TÁROLT ADATOK BEHÍVÁSA: 

Ezt választva először lehetőség 
van a lemez tartalomjegyzékének a 
megtekintésére. 

Nemleges válasz, ill. a tartalom- 
jegyzék kiírása után bekéri azt az 
ADAT-FILE nevet, amelyet betölteni 
kívánunk. A név beírására a meghajtó 
kezelés szabályai érvényesek. Max. 
16 karakter és használható a * is. 

Ezután a program megvizsgálja 
a disk állapotát, az eredményt kiírja. 
Hiba esetén várakozik a kijavításra. 


Az adatok betöltése után a 
MENÜ jelentkezik. 

MENÜ: 

A menüből a funkció-gombok va¬ 
lamelyikének a leütésével lehet vá¬ 
lasztani. 

FI A progam befejezése, ill. új 
TRIAGRAM indítása. A memóriából 
az adatok törlődnek és a RETURN le¬ 
ütésére elölről indul a prg. 

F3 Képernyőre írja a memóriá¬ 
ban levő adatokat és a hozzátartozó 
szövegeket. A kiírás függőlegesen 
történik. Balszélen a triagram címe, 
majd a három oszlopsor adatai a hoz¬ 
zátartozó megjegyzéssel. Innen a 
MENÜ-re lehet visszatérni. 

F5 Az aktuális adatokat lemezre 
menti ki. Beírás mint a betöltésnél. 

VIGYÁZAT! Ha olyan nevet adunk 
meg, amilyen már van a lemezen, ak¬ 
kor az abban levő adatok elvesznek, 
mert a most betöltődő adathalmaz fe¬ 
lülírja azt. 

Kimentés után a menüre lép visz- 
sza. Innen lehet befejezni a munkát, 
ill. új TRIAGRAM-ot kezdeni. 

F7 Kirajzolja a TRIAGRAM-ot. 
Egy gomb leütésére a MENÜ-re tér 
vissza. 

Jó munkát és hasznos időtöltést 
kíván a program készítője: 

Harma M. András 


O 


O 


o 


o 


o 


ü 


o 


556 

560 

562 

564 

566 

600 

604 

605 

606 
610 
612 
614 
620 
625 
630 
635 
640 
645 
650 
700 
710 


54296,15 
: poke 54296,0 
next 


1 . 

tart 


(RvOf][=K]" 
jegyzéket ?[RvOf](=K) 


return 

fór i=l to 20: poke 
fór t=l to 20: next 
fór j = l to 3: next : 
return 
print kr$ 

print "[3:Dwn](RvOn) 
print "[RvOn] kéri a 
print M [30:-UH-V] " 
get g$: if g$="" then 
if g$="n" then return 
if g$<>"i" then 610 
print kr$ 

open 1.8,0,"$": poke 781,1 
fór i—1 to 7: get a$,b$,c$,d$: print a$b$c$d$; 
get a$,a$,a$,b$: if st then sys 65484: close 1 


. [21 : 
1 emez 

610 


i / n' 


sys 65478: get a$,a$,a$,a$: x$=chr$(0): print 

next : print 
goto 645 


print asc(a$+x$)+256*asc(b$+x$); 
print ”[2:Dwn] "tg$: poke 198,0: 
return 

print "[Clr)": ad$=" adatlista " 
fór i = l to 11: o=0: s=i+3: gosub 
"[=L][RvOn]"mid$(ad$,i,1)"[RvOf][=J] 
715 j=l: if len(bn$)<10 then j=l 


goto 630 
wait 198,1 


9: print 
: next 


O 

O 

O 

O 

O 

" 0 


O 


o 

720 

fór x=l 

to len(bn$) 





725 

o=5: s= 

j*x: gosub 9: print 

mid$(bn$ 

,x,1): 

next 

O 


730 

print " 

[Wht]": h=l1 




0 

735 

fór x=l 

to ns 




O 


740 

fór y=l 

to no 




o 

745 

o=h-(int(lóg(a(y,x))/lóg(10))): s=y 

-1: gosub 9: print a(y,x)" B" 


750 

next y: 

h=h+10: next x 




O 


780 

fór x=l 

to 7: 0=14: S=X+2: 

gosub 9: 

print 

"[Pnk]"mid$(mj$(1),x,1): next 

o 

785 

fór x=l 

to 7: 0=24: S-X+2: 

gosub 9: 

print 

"[Ye1]"mid$(mj$(2),x,1): next 



790 

fór x=l 

to 7: 0=34: S=X+2: 

gosub 9: 

print 

"[LBlu]"mid$(mj$(3),x,1): next 

O 


13 


FEBRUÁR 


o 










PÁLYÁZAT 



o 

o 

G 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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792 o=0: s=22: gosub 9: print "(Wht]menüre: print " f7": gosub 550 

794 get g$: if g$="" then 794 

796 if g$="[f7]" then 200 

798 goto 794 

800 far x=l to ns 

810 if x>0 then print "[Red]": if x>l then print "[Yel]": if x>2 then print "[Blu] 

820 fór y=no to 1 step -1 

825 xp=10+(y-1)*bk+x-ns: yp=20+x 

830 k=int(a(y,x)/ma*20+.5) 

840 if k>=l then o=xp: s=yp: gosub 9: print f$ 

842 if k=l then o=xp : s=yp: gosub 9: print e$ 

845 o=xp: s=yp: gosub 9: print "[RvOn][Wht][=*][RvOf]" 

850 print "[Hóm]" 

855 if x>0 then print "[Red]": if x>l then print "[Yel]": if x>2 then print "[Blu] 
860 if k>=3 then fór m=l to k-2: o=xp: s=yp-m: gosub 9: print m$: next 
870 if k>=l then o=xp: s=yp-k: gosub 9: print t$ 

880 if k>=3 then o=xp: s=yp-m: gosub 9: print e$ 

890 if k<l then o=xp: s=yp: gosub 9: print o$ 

900 if y<no and k=z then o=ox: s=oy: gosub 9: print "[RvOn] [RvOf]" 

910 z=k: ox=xp: oy=yp-k 
915 next y: next x 

920 o=0: s=24: gosub 9: print "[Wht]"tg$: gosub 550: poke 198,0: wait 198,1 
930 return 
990 : 

1000 j=l: if len(bn$)<10 then j=2 

1010 fór x=l to len(bn$): o=0: s=j*x: gosub 9: print mid$ (bn$,x,1): next 

1020 fór x=l to 7: o=38: s=x: gosub 9: print "[Pnk] "mid$(m j$(1),x,1): next 

1035 fór x=l to 7: o=38: s=x+8: gosub 9: print "[Yel] "mid$(mj$ (2),x,1): next 

1045 fór x-l to 7: 0=38: s=x+16: gosub 9: print " [LBlu] "mid$(mj$ (3),x,1): next 

1050 print " [Wht ][Up]": b=4 

1100 if ma—(int(ma/b)*b)<>0 then ma=ma+l: goto 1100 
1105 g=100 

1110 if max>100 then g=10: if max>1000 then g=l 
1115 fór x=0 to 20 step 5 
1120 k=int((20-x)*ma*g/20+.5)/g 
1125 l=len(str$(k)) 

1130 o=9-ns-l: s=x: gosub 9: print k 
1135 next : return 
1140 : 

1200 print kr$: br=int(25/no)-1: bk=br+l 
1220 t$="[=*][RvOn]" 

1225 if bk>=2 then fór x=l to br: t$=t$+" next 
1230 t$=t$+"[-*][RvOf]": m$="[=H][RvOn]" 

1240 if bk>=2 then fór x=l to br: m$=m$+" next 
1250 m$=m$+"[=M][RvOf]f$="[RvOn][=*]" 

1255 if bk>=2 then fór x=l to br: f$=f$+" next 
1260 f$=f$ + "[=M] [RvOf] [Up] " 

1265 fór x=1 to br+2: f$=f$+"[Lft]": next 
1270 o$="[ = *][RvOn]" 

1275 if bk>=2 then fór x=l to br: o$=o$+" ": next 
1280 o$=o$+"(=*][RvOf]": e$ = "[=G][RvOn]" 

1285 if bk>=2 then fór x=l to br: e$=e$+"[=Y]": next 
1290 e$=e$+"P[RvOf]": f$=f$+e$: k$="L" 

1300 fór x=l to bk*no+ns: k$=k$+" ": next 
1305 k$=k$+"[s@]" 

1315 fór x=0 to 20: o=10-ns: s=x: gosub 9: print k$: next 
1325 k$="[=@]L“ 

1330 fór x=l to no*bk+ns: k$=k$+"[=@]": next 
1340 k$=k$+"[s@]" 

1350 fór x=0 to 20 step 5: o=9-ns: s=x: gosub 9: print k$: next 
1360 return 
1380 : 

1400 print kr$ 

1409 print " ."spc(19)"." 

1410 print " kerem az triagram cimet[4: )(Dwn)[s\]": o=9: s=6: gosub 9 
1420 nc=20: ak=31: av=93: gosub 10 

1425 bn$=sz$ 

1430 o-2: s=9: gosub 9: print "ha[Up][Lft].[Dwn]ny oszlop (adat) lesz (1-24)" 

1435 nc=2: ak=47: av=57: o=34: s=9: gosub 9: gosub 10 

1440 no=val(sz$): if no<1 or no>24 then gosub 560: print "[5:Lft] ": goto 1430 

1445 o=2: s=l1: gosub 9: print "ha[Up][Lft].[Dwn]ny sor (diagram) legyen (1-3) ?" 
1450 nc=3: ak=48: av=52: 0=34: s=ll: gosub 9: gosub 10 

1455 ns=val(sz$): if ns<1 or ns>3 then gosub 560: print "[5:Lft] ": goto 1445 


O 

O 


O 

O 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


FEBRUÁR 14 







PÁLYÁZAT 



Q 

O 

Q 
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o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 
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o 

o 
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1456 : O 

1457 ma=20: gosub 8 

1460 prInt "[Dwn] ke [Up ][Lf t ] .[Dwn ] rém az adatokat ! (1-15:9])" 

1465 fór X“1 to ns O 

1470 print : print "[4: ]"x;"[Lft) . diagram [Dwn]" 


then gosub 560: print tab(25)"[Up][Pnk] 


1475 fór y-1 to no 
1480 print " "y;"[Lft]. adat: 

1485 nc=5: ak=47: av=58: gosub 10 
1510 a(y,x)=val(sz$) 

1520 if a(y,x)=0 or a(y,x)>99999 
a(y,x) "[Wht][Dwn]": goto 1480 
1540 if a(y,x)>ma then ma-a(y,x) 
next y: gosub 550 

print "[Dwn] ke(Up][Lft].[Dwn]rém az "x".sorhoz a megjegyze[Up)[Lft].[Dwn]st. 
print "[Dwn] max. 7 kar. 
nc=7: ak=31: av=93: gosub 10 
mj$(x)=sz$ 
next x: return 
print kr$ 

print " U[s*]I."spc( 14) "U(s*]I"spc(11)" . " 
print " BtBarolt adatok BuBj adat beiras" 
print " J(s*]K"spc(15)"J[s*]K[2:Dwn]" 

ta=0: gosub 550 
get g$: if g$="" then 1720 


1550 

1570 

1575 

1580 

1585 

1590 

1700 

1710 

1712 

1714 

1716 

1720 

1722 

1724 

1722 

1724 

1726 

1730 

1740 

1745 

1750 

1755 

1760 

1900 

1902 


if g$-"u" then return 
if g$<>"t" then 1720 
if g$-"u" then return 
if g$<>"t" then 1720 
gosub 600 
print kr$ 

print "[2:Dwn] .[9: ][-@][5: ][-@]" 
print " kerem a betöltendő fiié nevet 
input " (max. 16 karakter) ";fi$ 
if len(fi$)>16 or len(fi$)<l then 400 
ta=l: return 


[Dwn][7: ][s\] 


print 
print 
[=A] [s* ] I U 
1904 print 
1906 print 
[=E][2:Dwn] 


”[6: ][-A] [=R][=S1 
s*]I [=A]IU [ **S ]" 
[7: ]B [-Q][-R]K 
[7: 1[-E] [=E)J(= 


[=A] [s*]I [-R] U[s*]I U[s*]I 


B 

X] 


[=Q][s*] 
[=E] [ = 


[=W] 
'E ] [ = 


B 

E] 


[-S] 

J[s- 


(=Q)[=R]K [= 
1K [=E]J[=X] 


Q] Is*] [■ 
l=E] [ = 


■W] 

! E] 


BJKB" 

[=E] 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1910 

1914 

1915 

1916 

1919 

1920 
1925 
1930 
1932 
1934 
1940 
1945 

1949 

1950 
1952 
1955 
1957 
1960 
1962 
1965 
1967 
1970 
1972 
1975 

1979 

1980 

1984 

1985 

1987 

1988 
1990 
1992 


print "[8: ]3d diagram szerkesztő[Up][Lft][=@][Dwn] prg.[3:Dwn]" 
print " ."spc(33)"." 

print " keszitette:[11: ]harna m. andras" 

print tab(25)"szeged 1993(4:Dwn]" 
print tab(12)".[6: 

print "[6: ]információt kér ? i / n" 

gosub 550 

get g$: if g$="" then 1930 
if g$="n" then return 
if g$<>"i" then 1930 
print "[Clr ]" 

print "[Up][Ye1](9: ]krampuszof t(S: ](Wht]" 
print "[8: ]." 

print "a prg. három oszlop-diagramot mutat be" 
print " [ 11: ]." 

print "egy koordináta-rendszerben." 
print "[14: ]." 

print "az oszlopok szama max. 24 lehet." 
print "[10: ] . "spc ( 22 ) " . " 

print "a kirajzolás beirt vagy lemezen tarolt" 

print "[12: 1. [«@] ." 

print "adatok alapjan történhet." 

print "[9: ].[6: ]. .[16: ][«@] " 

print "a beadható max. érték: [5:9] (5 jegyű " 

print " 

print "szám.)" 

print "[RvOn][s\][5: ][~@)[4: ][«@][5: ][=@][20: ][=*]" 
print "[RvOn] lehetőleg ügyeljünk arra, hogy a 2-es " 
print "[RvOn][5: ]. .[30: ]" 

print "[RvOn] sor értékéi kisebbek legyenek mint az " 

print “[RvOn][5: ]. .(13: ]. .[14: )" 

print "[RvOn] 1-ese es a 3-as sor értékéi kisebbek " 
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1993 print "(RvOn)[26: ].[12: I" 

1994 print "[=*l[RvOn) legyenek mint a 2-es soré ![9: ][RvOf][s\J" 

1995 print ”[Dwn][5: ]tova[Up][Lft].(Dwn)bb: egy gomb[2:Up]" 

1996 poke 198.0: wait 198,1: return 

1997 rém-checksum- 

1998 poke 65,peek(122): poke 66,peek(123) 

1999 v=peek(43)+peek(44)*256: read c$: p=0 

2000 n=peek(v+2)+peek(v+3)*256: if n-1997 then end 

2001 p=p+l: if p>len(c$) then read c$: p=l 

2002 v-v+4: s-0: print n"" 

2003 b=peek(v): v=v+l: if b then s=s+b: goto 2003 

2004 if (s and 31)<>asc(mid$(c$.p))-64 then print "error in"n 

2005 goto 2000 

2006 data "ecqc[ebjvxqh1tyqdpdy \zvru jya)ukehzahw@wmuwj@xvx[aeqIs]bzenjt" 

2007 data "w@\keot@_‘rqoplzw]v[sx@tdhd_vs]\[r\mov[t_["[t_zoewn§q]nz_kkpo" 

2008 data "ez]xchxn@_bhbxa'*vlvtk]mmahckh_mpphscxxkeo1nzc_vamuojb_vrrjzu" 

2009 data "_nh@fr"wzdggrux‘uyxtnzzvxxwdibgoaza@ax'osh]o\c@mgbzb‘bxcvcczu" 

2010 data "_x@@zgvlzralh_gfo[pwkjkkkopk]sk]kocgksgt]g_h" 

ready. 
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"Megj.:A lista begépelése előtt olvassuk el a 93/12.szambán megjelentt BASIC 
O "LISTÁZÓ c. cikket.Az ott leírtakhoz annyit kell hozzátenni, hogy a használt 
nyomtatón megjelenő 


O 

O 

o 


(kitevő) 

\ (backslash) 
_ (hangosköz) 


helyett felnyíl 
helyett fontjel 
helyett bal nyíl 



Disk-Filenéi 

rendezőprogram 



A filenév rendezőprogram meg¬ 
írására az késztetett, hogy a Commo¬ 
dore gépek Basic-jéből hiányoltam 
azt az igen előnyös tulajdonságot, 
mellyel az IBM gépek rendelkeznek, 
miszerint a mágneslemez tartalom- 
jegyzékének listázása ABC sorrend¬ 
ben történhet. Ennek az előnyét nem 
kell részleteznem, de csak párat meg¬ 
említve pl. gyorsabb kikereshetőség a 
listából, rendezettebb, jobb áttekint¬ 
hetőség stb. 

Mint ismeretes a Commodore 
gépek filenév listázása a programok 
felvételének sorrendjében történik. 

A filenév rendezőprogram birto¬ 
kában lehetőségünk nyílik mágnesle¬ 
mezeink fileneveinek bármikori ABC- 
sorrendbe rakására, mely a mágnes¬ 
ei 


lemezen effektíven megy végbe. így a 
filenév listázás bármely változatát al¬ 
kalmazva ugyanazt a rendezett listát 
kapjuk. (Dir: Directory: LOAD"$",8). 
Mivel én is többfajta Commodore gép¬ 
pel rendelkezem, törekedtem arra, 
hogy a program bármely típusú Com¬ 
modore gépen futtatható legyen, ne 
tartalmazzon olyan Basic-parancsot, 
melyet a Basic V200 ne értene meg. 


FELHASZNÁLÓI ÚTMUTATÓ 
A FILENÉV RENDEZŐ¬ 
PROGRAMHOZ 

A filenév rendezőprogram betöl¬ 
tése, majd listázása után máris látha¬ 
tó a program fejlécében az utalás 
arra, hogy több típusú gépen is hasz¬ 
nálható. A programlistát REM-sorok 
tördelik, melyek a program által vég¬ 
zendő egyes részfeladatokat jelölik a 
jobb megérthetőség kedvéért. 


Az elvégzendő részfeladatok: 

— címkép megjelenítés, előké¬ 
születek. 

— írásvédelem ellenőrzés. 

— A tartalomjegyzék aktív blokk¬ 
jainak memorizálása. 

— Filenevek memorizálása, file- 
bejegyzések memorizálása. 

— Filebejegyzések rendezése a 
filenevek ABC-sorrendbe való rende¬ 
zése alapján. 

— Rendezett filebejegyzések 
visszaírása a mágneslemez blokk¬ 
jaira. 

— Felszólítás a tartalomjegyzék 
kiíratására, ellenőrzésére. 

Futtatva a programot először a 
cím kép jelentkezik be, mely tartal¬ 
mazza a program nevét, egy rövid 
mondatba foglalva a program lénye¬ 
gét, valamint utasít a rendezendő disk 
behelyezésére a meghajtóba. A cím¬ 
kép az ,,l” (igen) megnyomására vár 
ami indítja a rendezést. 
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10 

15 

20 

30 

40 

50 

60 

70 

75 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 
95 
100 
110 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


300 

310 

320 

325 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

635 

640 

650 


rém ******************************** 
rém * * 

rém * disk-filenev rendező * 

rém * * 

rém * készítette: hegedűs gyorgy * 
rém * 1993.07.22 * 

rém * C16/116/64/+4/128 * 

rém ******************************** 

print "[Clr] [10:Rgt] [3:Dwn] (20:*] " 

print " [ 10 : Rgt ] * f 18 : ]*" 

print "[10:Rgt]* filenev rendező *" 

print "(10:Rgt)*(18: )*" 

print "(10:Rgt) [20:*] " 

print : print : print : print "(3: Rgt]ez a program lehetove teszi, hogy" 
print "(3:Rgt]egy mágneslemez fileneveit abc sor-" 
print "[3:Rgt]rendbe kapjuk meg a lemez tartalom-" 
print "[3:Rgt)jegyzekenek listázásakor." 
print "(3:Rgt](5:Dwn]kerem helyezze a rendezendő fiié-" 
print "[3:Rgt]neveket tartalmazó mágneslemezt a" 
print "[3:RgtJmeghajtoba![4: ]indíthatok? <i/n>“ 
get 1$: if 1$< >"i" then 92 
print "[Clr]" 
clr 

dim t(18).3(18), j$ (144),k$(144) 
rém ******************************* 
rém * az irasvedelem ellenőrzése * 
rém ******************************* 
open 15.8,15,"i": open 2,8,2,"#" 
pnnt*15 , "b-r" ; 2; 0; 18; 0 
print#15,"b-p";2;0 
print#15,"u2":2:0;18;0 
input#15,xl$ 

if val(xl$)< >26 then 340 

print "[Clr][10:Dwn][Rgt](RvOn]ez a disk irasvedo füllel van e1latva![RvOf]" 

: close 2: close 15 

fór v=0 to 5000: next v: run 

rém ******************************* 

rém *a tartalomjegyzék blokkjainak* 

rém ‘memorizálása t(j)-be, s(j)-be* 

rém ******************************* 

t(0)-18: s(0)—1: j=0: e=0: n-0: t-18: s-1 

rém ******itt kezdődik a ciklus**** 

j-j + 1 

print#15,"b-r";2;0;t;s 
print#15,"b—p";2;0 

get #2,x$: if x$ = "“ then x$-chr$(0) 
t(j)-asc(x$): t=asc(x$) 
get #2,x$: if x$-"" then x$=chr$(0) 
s(j)-asc(x$): s-asc(x$) 


rem ******************************* 

rém * a fi lenevek memo.-sa j$(i) * 

rem ******************************* 

print "[Horn] [10:Rgt] [12:Dwn]fi lenevek betöltése" 

print#15,"ul";2;0;t(j—1);s(j-1) 

fór x-0 to 7 

print#15,"b-p";2;x*32 

fór y-1 to 32 

get #2,x$: if x$="" then x$=chr$(0) 

gg$=gg$+x$ 

next y 

if asc(mid$(gg$.6,1))<>0 then e=e+l: k$(e)=gg$ 

gg$-"" 

next x 

fór x-0 to 7 

print#15,"b-p";2;x*32+5 

fór y-0 to 15 

get #2,x$: if x$="" then x$=chr$(0) 
if x$=chr$(160) then 650 
ff$-ff$+x$ 
next y 
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660 if asc(ff$)<>0 then n=n+l: j$(n)-ff$ 

670 

680 next x 

690 if t<>0 then goto 350 

700 close 2: close 15: pnnt "[Clr]" 

710 rém ******************************* 

720 rém * j$(i) rendezese +k$(i) * 

730 rém ******************************* 

735 prínt "[10:Rgt)[12:Dwn]kis türelmet, rendezek..." 

740 fór i=l to n-1 

750 if j$ ( i)< = j $(1 + 1) then 800 

760 s$=j$(i+1): sz$-k$(i+l) 

770 fór p-i to 1 step —1 

780 if j$(p)>s$ then j$( p+ 1)=j$(p): k$(p + 1)-k$(p): next p 
790 j$(p+l)=s$: k$(p+l)=sz$ 

800 next i: print "[Clr)" 

810 rém ******************************* 

820 rém * a rendezett k$(e)-k vissza- * 

830 rém * irasa a lemez blokkjaira * 

840 rém ******************************* 

850 open 15,8,15,"i": open 2,8,2."#" 

860 fór a=0 to j-1 

870 fór b-0 to 7 

880 print#15,"ul";2;0;t(a);s(a) 

890 print#15,"b-p";2;b*32 

900 print#2,k$(b+z+1);: print b+z+1". "mid$(k$(b+z+1),6,16) 

910 print#15,"u2";2;0;t(a);s(a) 

915 next b: b=0 

920 z-z+8 

930 fór c=0 to 7 

940 print#15,"ul";2;0;t(a);s(a) 

950 print#15,"b-p";2;c*32 
960 o$=chr$(0)+chr$(0) 

970 print#2,o$; 

980 print#15,"u2";2;0;t(a);s(a) 

990 next c: c=0 

1000 print#15,"ul";2;0;t(a);s(a) 

1010 print#15,"b-p";2;0 

1015 w$=chr$(t(a+1))+chr$(s(a+1)) 

1020 print#2.w$; 

1030 print#15,"u2":2;0;t(a):s(a) 

1040 next a 
1050 close 2 

1060 print#15,"iO": close 15 

1070 print "[3:Rgt][12:Dwn)kerem ellenőrizze a directory-t..." 

1080 end 

1081 rém-checksum- 

1082 poke 65,peek(122): poke 66,peek(123) 

1083 v=peek(43)+peek(44)*256: read c$: p-0 

1084 n=peek(v+2)+peek < v+3)*256: if n-1081 then end 

1085 p-p+1: if p>len(c$) then read c$: p=l 

1086 v=v+4: s-0: print n "[Up]" 

1087 b=peek(v): v=v+l: if b then s=s+b: goto 1087 

1088 if (s and 31)<>asc(mid$(c$,p))-64 then print "error in"n 

1089 goto 1084 

1090 data "oc[co@eozmsssgscrviruip\vewetve\cxhxebyekeadergrezzebe"wv"fr\" 

1091 data "(chzzv]frjx[_fz [\eder [zmfg(uecketn@mhinbhami_dndmehlncrgh@" 

ready. 
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lista begépele'se előtt olvassuk el a 93/12.számban megjelentt BASIC 
O LISTÁZÓ c. cikket.Az ott leírtakhoz annyit kell hozzátenni, hogy a használt O 

nyomtaton megjelenő 

O * (kitevő) helyett felnyil O 

\ (backslash) helyett fontjel 
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A program futása közben infor- 
máljaafelhasználót az éppen végzen¬ 
dő munkafázisról, így nyomon követ- 
hetőésérzékelhető a program üzeme¬ 
lése. A rendezés végeztével megkez¬ 
dődik a rendezett filenevek visszara- 
kásaadiskre, miközben sorszámozva 
megjelennek a képernyőn az egyes 
filenevek, nyolcas csoportokban. 

A program háromszor hajt végre 
inicializálást: 

1. Az írásvédelem ellenőrzése 
előtt a program elején. 

2. A rendezett filenevek vissza- 
írása előtt. 


3. A rendezett filenevek vissza- 
írása végén. 

Majd végezetül utasít a tartalom- 
jegyzék helyességének ellenőrzé¬ 
sére. 


MEGJEGYZÉS: 

A filenév rendező a tartalomjegy¬ 
zéken szereplő összes fiiét rendezi: a 
törölt file-okat is. Ezért tapasztalható 
olyan jelenség, hogy a visszaírás so¬ 
rán a képernyőre, törölt fileneveket is 
kiír a sorbarendezett helyére. 


Ne lepődjünk meg azon, hogy 
ha a tartalomjegyzék ellenőrzése¬ 
kor ezeket a törölt fileneveket nem 
találjuk a listában. Azon se lepőd¬ 
jünk meg, hogy ha egy ilyen törölt 
file-okat tartalmazó mágneslemez 
file-jait rendezve a legközelebb ki¬ 
mentett programunk neve nem a tar¬ 
talomjegyzék lista végén fog megje¬ 
lenni. Használjuk újra a filenév rende¬ 
zőprogramot! 

Sok sikert kívánok mindenkinek 
a program felfedezéséhez. 

Hegedűs György 


Filenév rendezőprogram működési leírása 


A címkép megjelenítése végén a 92 sor ciklusa várja a program indítását, mely kiszűri az esetleges téves billentyű 
lenyomását. Ha akarunk itt még kiléphetünk STOP gombbal a programból, de később már nem ajánlatos! 

110 sor: az indexelt változók dimenzionálását végzi. 

200—300 sor: az írásvédelem ellenőrzése 

a mágneslemez 18-as track 00-ás szektorának (a disk fejlécét és a BAM-t tart.) olvasása majd visszairá- 
sának próbálása, mely ha sikertelen volt, akkor a 270 sor INPUT utasítása az X1$-be beírja a lemez¬ 
hibaüzenetet, s a 26-os számú hiba esetén kiírja, hogy a disk írásvédő leragasztással rendelkezik, majd 
kis idő múlva újraindítja az egész programot RUN-nal. Sikeres visszaírás esetén elkezdődik maga a 
rendező program. 

340 sor: Változók alapértékeinek beállítása. 

350—690 sor: Olvasó-memorizáló ciklus, mely hossza a beolvasott T értékétől függ. 

Változók: T II : jelenlegi track száma 
SÍI : jelenlegi szektor száma 

J : ciklus számláló (hány blokkon található a tart.-jegyzék) 

T : következő track száma 
S : következő szektor száma 
FF$ : jelenlegi filenév 
GC$ : jelenlegi filenév-bejegyzés 
J $11 : filenevek 

E : index számláló (filenév-bejegyzések részére) 

N : index számláló (filenevek részére) 

K$// : filenév-bejegyzések 
Megjegyzés: 

Egy filenév-bejegyzés a disk-en tartalmazza: — a fiié típusát 

— a fiié helyét a disk-en 

— a fiié nevét 

— a fiié blokkokban mért hosszát. 

Minden blokkra a tartalomjegyzékből 8 fiié adata kerülhet. Minden ilyen blokk első két byte-ja a következő 
tartalomjegyzék-blokk helyét jelöli. 

350—450 sor: Olvasó rutin, mely a következő olvasandó blokk helyét határozza meg. Memorizálja az adott track és 
szektorszámot T II és S//-be. 

480 sor: A felhasználó informálása az adatbetöltés részfeladatról. 

490—590 sor: Olvasó rutin, mely a filenév-bejegyzéseket memorizálja KS//-be. 

600—680 sor: Olvasó rutin, mely a fileneveket memorizálja JS//-be. 

735 sor: A felhasználó informálása a rendezés részfeladatról. 

740—800 sor: Rendező rutin. 

A fileneveket rendezi és vele együtt a filenév-bejegyzéseket. Gyorsrendező vagy más néven index¬ 
táblás rendező, mely lényege, hogy az éppen aktuális adatot behelyezi a névsor szerinti helyére majd 
veszi a következőt. 

Magát a tárolt adatot nem bántja, csak a hivatkozási indexszámot módosítja. 

850—1050 sor: A filenevek alapján rendezett filenév-bejegyzések visszaírása a disk-re 

A memorizált T II- és S/l-k szerinti helyekre visszaírja a rutin, nyolcasával a rendezett filenév- 
bejegyzéseket, miközben a képernyőről informálódhatunk az éppen felvétel alatt álló filenévről, ami 
egymás alá íródik sorszámozva. 

1060 sor: Végső inicializálás. 

1070 sor: Felszólítás a tartalomjegyzék ellenőrzésére. 
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Ellenállások 

színkódtáblázata 



program pályázatra küldöm prog¬ 
ramomat. 

Programnyelv: C-64 standard 
BASIC. 

Gép: C-64-en fut. 
Alkalmazhatósága: 

Különböző színkóddal ellátott el¬ 
lenállásokat dekódol. Megtudhatjuk, 
hogy az alkatrész hány ohmos, hány 
Kohmos. Ezenkívül ezek pontosságát 
százalékban, és üzemfeszültségüket 
voltban. (Az üzemfeszültség színkódja 
nincs mindig az alkatrészen.) 


A program használata: 

Hívjuk be az 1-es töltőprogramot. 
Az a program autóstartos, ezért csak a 
,8,1-gyel tudjuk behívni. Ez behívja a 
2-es töltőprogramot. Ennek több fel¬ 
adata is van. Először behívja az ékeze¬ 
tes betűket, majd aktiválja azokat. Az 
ékezetes karaktereket előállító prog¬ 
ram a C-újság 1986/3. számában jelent 
meg. Kissé átírtam, ezért más a billen¬ 
tyűzet kiosztás. 3 változtatást hajtottam 
végre: az „ü” betű a csillagról átkerült 
a visszanyílra, valamint két új karaktert 
is szerkesztettem, az í) (ohm) és a ± je¬ 
leket. Ezeket mindenki saját ízlése sze¬ 
rint megtervezheti. Tehát a változások: 
— = ü 

SH+7 = ± 

f = Ü 


Az ÉKEZETES NAGYBETÜK- 
program kimentőrutinja tartalmaz há¬ 
rom SYS utasítást, remélem ezzel nem 
sértem a pályázat feltételeit. 

Végül a 2-es töltőprogram betölti a 
főprogramot. Ezután pár másodperc 
várakozás után megjelenik a program 
munkaablaka. 

Vegyük a kezünkbe az ellenállást, 
majd az első csík színét keressük meg 
a képernyőn a 2-es JOY jobbra/balra 
mozgatásával, és a tűzgombbal jelöljük 
ki. (Két színben egy-egy betű van. Ezek 
jelentése: A = arany, E = ezüst.) Ha 
nem találjuk, fordítsuk meg az alkat¬ 
részt, s így folytassuk a színek kiválasz¬ 
tását. Ha a második csíknál tapasztal¬ 
juk ezt, ugyanúgy fordítsuk meg az el¬ 
lenállást, mint az előbb. Miután végez¬ 
tünk valamennyi szín kijelölésével, a 
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4 poke 808.254 

5 dim a$(50) 

6 print chr$(8) 

7 poke 53272,19 

10 rém********************************* 

11 rém* , , * 

12 rém* ellenállások szinkodtablazata * 

13 rém* varga soft 1993 * 

14 rém* , * 

15 rém* irta: * 

16 rém* , * 

17 rém* varga zoltan * 

18 rém* * 

19 r em********************************* 

40 rem 

45 rem *** sprite adatai *** 

50 data 0,0,0.0.0,0,0,0,0.0,0,0,0,0,0,0,0,0.0,0,0.31,255,248,16,0.8.16,0,8,240 
60 data 0,15,16,0,8,31.255.248.0,0,0.0.0,0,0,0,0,0,0,0.0,0,0,0.0.0,0,0,0,0,0,0 
70 fór t=0 to 62: read w: poke 704+t,w: next 

80 poke 2040,11: poke 53248,40: poke 53249,58: poke 53271,1: poke 53277,1: 

poke 53287,0 
100 rem 

105 rem *** kepernyomaszk *** 

107 poke 53280,6: poke 53281,15 

110 print "[Clr)[Horn][Red]"tab(6)"varga soft:" 

120 print "[Horn] [2:Dwn)"tab(9)"e1ienAl1 Ások szInkOdtAblAzata" 

130 print "[Horn][3:Dwn]"tab(3)"[Blk]B[Blu]B[Mar]B[Wht]B[Red][7: ] 

(c) 1993.07.01.": poke 53269,1 
200 rem 

205 rem *** adatbevitel *** 

207 goto 300 

209 s=s+l: jy=0 

210 a=peek(56320): 

220 if a=123 then 250: rem bal 

230 if a=lll then 270: rem tűz 

240 if a=l19 then 260: rem jobb 

245 fór i=l to 100: next : goto 210 

250 jy-jy-1 

251 if jy<c then jy=c 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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képernyő alján megjelennek az alkat- 

Megjegyzés: 

A főprogram algoritmusa: 


rész adatai. Ezzel vége is van a prog- 

A programban erdetileg nagyon 

START 

0 

ramnak, de még megkérdezi, hogy ki- 

gyorsan lehetett vezérelni a nyilat. Ezért 

1 


ván-e újra 

dekódolni. Ha az l-t írjuk 

szinte lehetetlen volt kiválasztani az 

SPRITE behívása 

50 

be, akkor elölről kezdődik a program. 

adott színt. Ennek kiküszöbölésére a 

1 

KÉPERNYŐMASZK 


Ha az N-t írjuk be, akkor először minden 

programban elhelyeztem egy FÓR- 

100 

BASIC mutató visszaállítódik alaphely¬ 
zetbe, majd a program megsemmisíti 

NEXT időzítő ciklust. 

Az 1-es töltőprogram algoritmusa: 
LOAD' '1-ES TOLTOPRG.' ',8,1 

1 

ADATBEVITEL 

200 

önmagát. 


1 


Fontosabb változók: 

1 

Adatok kiértékelése 

330 

A 

= 2-es JOY állapota. 

AUTOSTART 0 

I 


C, D 

= A mutatónyíl pozíciója. 

l 

Adatok kiírása 

510 

E 

= A kiírandó sor száma. 

FELIRAT 10 

1 

ÚJRA kérdése 


S 

= Hányadik bevitel? 

1 

530 

JX/S/ 

= Bevitelek értékei. 

2-es töltőprg. behívása 30 

IGEN NEM 


0 

= Hány ohmos az alkat- 

A 2-es töltőprogram algoritmusa: 

/ \ 



rész? 

START 0 

RUN NEW 


KO 

= Hány Kohmos az alkat- 

1 

EXTRÁK: — ékezetes betűk 



rész? 

Ékezetes betűk behívása 10 

— RUN/STOP + RESTORE 

PO 

= Pontosság. 

i 

FŐPROGRAM behívása 30 

védelem 


KI $ 

= Üzemfeszültség. 

Varga Zoltán 


O 

252 

prlnt "[Hóm]": fór p=l to e: pnnt "[Dwn]"; 

: next 

: print tab(ll-t-iy)" * "; 

O 


253 

fór 1=1 to 100: next : goto 210 





Q 

260 

jy=jy+1 





261 

if jy>d then jy=d 






262 

prlnt "[Hóm]": fór p=l to e: prlnt "[Dwn]"; 

: next 

: print tab(ll+jy)" ' 


O 

263 

fór i = l to 100: next : goto 210 




o 


270 

jx(s)-jy: return 





O 

290 

sz ( 0 ) =va1(sz$(6)) 





300 

print " [Hóm][6:Dwn] 1. csík: [RvOn][Blk] 

[Mar] 

[Red] [Org] 

[Yel) [Grn] 

o 



[Blu] [Pur] [Gryl ] [Wht] [RvOf)[Red]" 





0 

301 

print " [Horn][7:Dwn]"tab(ll) " "[Horn]" 




o 


302 

c=0: d=9: e=6: gosub 209: print "[Hóm]" 





o 

303 

fór p=l to 150: next 






305 

print " [Horn][9:Dwn] 2. csík: [RvOn][Blk] 

[Mar] 

lRed ] [Org] 

[Yel] [Grn] 

ü 



[Blu] [Pur] [Gryl] [Wht] (RvOf 1 [Red] " 





o 

306 

print " [Horn] [ 10 : Dwn]"tab ( 11 ) " ‘[Horn]" 




o 


307 

c=0: d=9: e=9: gosub 209: print "(Horn)" 





o 

308 

fór p = l to 150: next 




o 


310 

print " [Horn][12:Dwn] 3. csík: [RvOn][Mar] 

[Red] 

[Org] [Yel] 

[Grn] [Blu] 



[Pur] [Gryl] [ Ye 1]a [Gryl]e[Wht] [RvOf)[Red 

] " 




o 

312 

print "[Horn] [ 13 : Dwn ] "tab ( 11 )" * [Horn] " 




o 


314 

c-0: d-10: e=12: gosub 209: print "[Horn]" 





o 

315 

fór p=l to 150: next 




o 

320 

print "[Horn][15:Dwn] 4. csík: [RvOn][Mar] 

[Red] 

[Yel]a[Gryl 

] [Wht] 



[RyOf][Red]" 





o 

322 

print "[Horn][16 : Dwn]"tab(11 )" ‘[Horn]" 




o 


324 

c=0: d=4: e=15: gosub 209: print "[Horn]" 





325 

fór p=l to 150: next 





U 

330 

print “ [Horn][18:Dwn] 5. csík: [RvOn](Mar] 

[Red] 

[Org] [Yel] 

[Grn] 

o 

o 


[Blu] [Pur] [Gryl] [Yel ] a[Gryl ] e(Wht ] (Red 

1 nincs[RvOf ]" 



332 

print " [Horn][19 : Dwn]"tab(ll) " ‘[Horn]" 




o 


334 

c-0: d=11 : e=18 : gosub 209 





o 

350 

rém 




G 

355 

rém *** adatok kiertekelese *** 





357 

dim sz(50) : j=0 





o 

360 

data "0","1"."2","3","4","5"."6"."7",”8","9" 



o 


370 

fór i=0 to 9: read a$(i): next i 





o 

380 

sz$ ( 1 ) =a$ ( ix(1 )): sz$ ( 2) =a$ ( jx ( 2 )) 




o 

385 

szí( 6) =sz$(1)+sz$(2) 





400 

sz ( 0)=val(szí(6 )) 





o 

410 

if jx(3)=8 then jx(3)=-l 




o 


415 

if jx(3)-9 then jx(3)=-2 





420 

sz(2)-10*(jx(3)+l) 




o 

o 

430 

data 1,2,5.10.20 





440 

fór i=0 to 4: read a(i): next i 





o 

445 

sz (4) -a ( jx(4) ) 




o 


o 
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tF 


450 

Q 

460 


470 


475 

o 

480 


483 

o 

488 

490 


495 

o 

500 


510 

o 

520 

525 


528 

G 

530 


540 


545 

o 

550 


555 

o 

560 


570 

o 

571 


572 


573 

G 

574 


575 

O 

576 

577 


578 

O 

579 

580 


581 


PÁLYÁZAT 


o 


o 


o 


data "100"."200"."300"."400"."500 

fór i=0 to 11: read a$(i): next 1 

if jx(5)-ll then jo=l: jy-11 

sz(3)=val(a$(jy)) 

o=sz(0)*sz(2) 

ko-o/1000 

po-=sz (4) 

if j0=0 then ki$=str$(sz(3)) : 
if jo-1 then ki$="nincs adat" 
rém 

rém * * * 
print " 
print " 
fór i“l 
print " 
get a$: 
if a$=" 


'600"."700","800","1000"."2000","900"." 


ki$=ki$+"v' 


adatok kiirasa **’ 
[Horn][20:Dwn][Rgt)' 
pontossAg:'";po;' 
to 1000: next 
[Dwn]"tab(13)"Újra 
if a$="" then 540 
i" then run 
then 560 


•":ko;' 
.fesz. 


kV 


: kl$ 


(i/n) 


poke 53280.14: poke 53281,6: print "[Clr] 


poke 44.8: 


[LBlu] 


new 


if a$="n 
goto 540 
poke 53269,0 
poke 2048.0 
poke 53272,21: print 

rém-checksum- 

poke 65,peek(122): poke 66,peek(123) 
v=peek(43)+peek(44)*256: read c$: p=0 
n=peek(v+2)+peek(v+3)*256: if n=571 then 
P=P+1: if p>len(c$) then read c$: p=l 
v=v+4: s=0: print n"(Up]" 

b=peek(v): v-v+1: if b then s=s+b: goto 577 
if (s and 31)<>asc(mid$(c$.p))-64 then print 
goto 574 

data ""aipykpfomolcyofmzd_o'alhfop\r@j]~ttcqtscqtcnnjajb]djapvjac 
data "dvso\odnz[nvxcne]ww[rkic'qoc*anjf©vbxv" 


end 


error in n 


1 j ‘ 


ready. 


Megj.:A lista begépelése előtt olvassuk el a 93/12.számban megjelentt BASIC 
LISTÁZÓ c. cikket.Az ott leirtakhoz annyit kell hozzátenni, hogy a használt 
nyomtatón megjelenő 


* (kitevő) 

\ (backslash) 
_ (hangosköz) 

Írandó. 


helyett felnyil 
helyett fontjel 
helyett balnyil 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 



ASCII-kódból 
képernyőkód 

A C64-nél a képernyőkódok eltérnek a nemzetközileg hasz¬ 
nálatos ASCII-kódoktól (American Standard Code fór Informa¬ 
tion Interchange). Emiatt különösen a szövegfeldolgozásban 
fontos egy olyan függvény (funkció), amelyik az ASCII-kódokat 
képernyőkódokká alakítja. Ez a függvény a következő: 

DEF FN AB(A) = A + 33 * <A = 255> + 64 * (A > 63) + 

+ 32 * (A < 96) - 32 * (A < 160) + 64 * (A < 191) 

Ezek után a PRINT FN AB(ASC("X")) függvényhívás az 
X karakter képernyőkódját írja a képernyőre. 


FELHÍVÁS 

Tisztelt Tagtársunk, Olvasóink! 

Kérjük, hogy ha rendelkeznek olyan működő számító¬ 
géppel, vagy jó állapotban lévő bármilyen számítógép¬ 
tartozékkal, amire nincs szükségük, akkor hozzák el 
egyesületi irodánkba (minden héten kedden és csütörtö¬ 
kön 11—15 óra között). 

Mi összegyűjtjük és eljuttatjuk azokat határainkon túli 
(erdélyi, kárpátaljai és szlovákiai) magyar iskolákhoz. 
Köszönettel: 

Országos Commodore Egyesület 
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JÁTÉK 



Indítási címek 

Plus/4 gépen futó játékokhoz 

Sokszor okoz bosszúságot, hogy bár sikerült megszerez¬ 
nünk egy-egy jó játékot, de hiába próbálkozunk, nem tudjuk el¬ 
indítani őket. Az alábbi címek ehhez nyújtanak segítséget. 

Megjegyzés a listához. Egy-egy játékprogramnak több, töb¬ 
bé vagy kevésbé tömörített változata is közkézen forog. így lehet¬ 
séges, hogy ugyanahhoz a programhoz több indítási cím is tar¬ 
tozhat. 

Ha az elindítási cím valakinél nem működne, az nem azért 
történt, mert rossz adatot közöltünk, hanem azért, mert nem 
ugyanazon cracker által feltört változattal rendelkeznek. 

Összeállította: 

Loós József 


Sor¬ 

szám 

Program (fiié) 
neve 

Indítási elmek 

1 

A.C.E. 

SYS 18625 

2. 

AIRWOLF 

SYS 7633 

3. 

ALIENS 

SYS 4125 

4. 

APOLLO MISSION 

G 3B2E 

5 

ARÉNA 3000 

SYS 6708 

6. 

AURIGA 

SYS 5222 

7. 

AUTOBAHN 

SYS 16029 

8. 

BABY BERKS 1. 

SYS 6144 

9. 

BANDITS 

SYS 8112 

10. 

BASEBALL 

SYS 15872 

11. 

BATTLE 

SYS 4111 

12. 

BEACH HEAD 

SYS 29184 

13. 

BERKS III 

G 1088,G 108A.SYS 4232 

14. 

BIATLON 

G 4C4A 

15. 

BIG-MAC 

G 3131,SYS 7000, G 1B58.SYS 12593 

16. 

BLAGGER 

G 241A.SYS 9242 

17. 

BLAZE 

G 2600,SYS 9728,SYS 9742 

18. 

BMX RACER 

SYS 16288,SYS 8330 

19. 

BONGO C. S. 

SYS 4109 

20. 

BRIDGEHEAD 

SYS 8192, G 2000 

21. 

CATACOMB 

SYS 4352 

22. 

COMMANDO 

SYS 9843, G 2673,SYS 12849 

23. 

CORMAN 

SYS 4112 

24. 

CRUNCHER 

SYS 8448 

25. 

CSODÁS SIMON 

SYS 14547 

26. 

CUOMO 

SYS 6500 

27. 

CUTHBERT IN TOMBS 

G 100E 

28. 

CYBORG 

SYS 11103 

29. 

DARK TOWER —1 

G 1E40.SYS 7744 

30. 

DEATH RACE 

G 392A 

31. 

DEFENCE (XZAP) 

SYS 4352,SYS 4346 

32. 

DELAY-2 

G 1010 

33. 

DIAGON 

SYS 12888 

34. 

DIZZY DICE 

SYS 4136 

35. 

DKS 

SYS 4128 

36. 

DORK'S DILEMMA 

SYS 6501 

37. 

ENIGMA 

G 4800 

38. 

EXORCIST 

SYS 4576 

39. 

FALCON PETROL 

G 3600,G 2000,SYS 8192 

40. 

FINDERS KEEPERS 

SYS 17925 

41. 

FINGERS MALONE 

G 16A0.SYS 23176,SYS 5792 

42. 

FIRE ANT 

G 1B03.SYS 6915,G 1B01 

43. 

FLIGHT PATH 737 

SYS 16124 

44. 

FLING A.C.E. 

SYS 18625 

45. 

FLOWER 

SYS 4130 

46. 

FOOTBALL 

G 3716 

47. 

FORMA—1 

G 3A8C.SYS 14988 

48. 

FURY 

SYS 4120 

49. 

GALAXIANS 

SYS 12960 


gyűjteménye 


Sor¬ 

szám 

Program (fiié) 
neve 

Indítási címek 

50. 

GHOST TOWN 

G 3EF9.SYS 7042 

51. 

GHOSTS N GOBLINS 

SYS 4343 

52. 

GOLDRUSH 

G 1004,SYS 4100 

53. 

GRAPHIC MASTER 

SYS 4128 

54. 

GREEN BÉRÉT 

G 1B00 

55. 

GULLWING FALCON 

SYS 8192 

56. 

GUNLAW 

SYS 4120 

57. 

GWNN 

SYS 14336 

58. 

HARBOUR ATTACK 

SYS 9216 

59. 

HUNGARORING 

SYS 8184,G 1FF8 

60. 

ICICLE WORKS 

SYS 24576 

61. 

IN THE COOCER 

SYS 4352 

62. 

INTERNATIONAL 

KARATE 

SYS 17920 

63. 

INVADERS 

SYS 4110 

64. 

JET SET WILLY 

SYS 10752 

65. 

JOEY 

G 1020 

66 

JUMBO JET 

SYS 25600 

67. 

KANÉ 

SYS 15868 

68 

KARATE KING 

SYS 18177 

69. 

KICKSTART 

SYS 8192 

70. 

KNOCK OUT 

SYS 8448 

71. 

KUNG-FU KID 

G 2000.SYS 8112,SYS 8192 

72. 

L'UMO 

SYS 6500,G 1964 

73. 

LAS VEGAS 

SYS 8192,SYS 1552 

74. 

LASER 900 

SYS 4096 

75. 

LASER ZÓNA 

SYS 12928 

76. 

LAWN TENIS 

SYS 9950,SYS 9952 

77. 

LEAPER 

SYS 16385.G 4001 

78. 

LEGONNAIRE 

SYS 4112 

79. 

LOCO CO-CO 

G 1300,SYS 5158,SYS 5342,SYS 5389 

80. 

LOCO CO-CO 

SYS 4128 

81. 

LOCOMOTION 

G 1100,SYS 4352 

82. 

MAIL TRAIL 

SYS 4098 

83. 

MANIC MINER 

SYS 7840 

84. 

MÁTRIX 

SYS 4122 

85 

MAYHEM 

G 118C 

86. 

MEGAZAP 

G 1000 

87. 

MERCENARY 

SYS 23552 

88. 

MILITARY 

SYS 4608 

89 

MONKEY MAGIC 

G 2955 

90. 

MR. PUNIVERSE 

G 1AF4 

91 

MYRIAD 16 

G 1AOO.SYS 10755 

92. 

NETRUN 2000 

SYS 4100 

93 

NINJA MASTER 

SYS 15104 

94 

NUMBER BUILDER 

SYS 16384 

95. 

NUMBER CHASER 

SYS 16384 

96 

OLYMPIC 

SYS 13103 

97. 

OLYMPIC SKIER 

SYS 16192 

98 

ONE MAN'S DROID 

SYS 5273 

99. 

OUT ON A LIMB 

SYS 5888,G 1004,SYS 5883 

100 

OUT ON A LIMB 2-4. 

SYS 4100 

101. 

PÁC MÁN 

SYS 4112 

102. 

PACMANIA 

SYS 4113,G 1011,SYS 4112 

103 

PANCHO 

SYS 4112 

104. 

PETALS OF DOOM 

G 3CE9.SYS 15593 

105. 

PETCH 

SYS 20736 

106. 

PIRATES 

SYS 9142 

107. 

POTTIT 

SYS 5728 

108. 

PROSPECTOR PETE 

G 1800 

109 

PULSAR 

SYS 10078,SYS 10072 

110. 

PUNCHY 

SYS 4112 

111. 

RAFFLES 

G 3B70.SYS 15216 

112. 

RAIDER 

G 1000,SYS 6928 

113. 

RAILING 

SYS 8448 

114 

RÁZÓS UT 

SYS 20480 


(Folytatás a 26. oldalon) 
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HARDVER 


Hobbi ELEKTRONIKA 

C-64 bővítések 


48 CSATORNÁS 1/0 KÁRTYA 
IBM PC-HEZ 


Ha a számítógépet nemcsak iroda- 
technikai feladatok elvégzésére használ¬ 
ja, hanem valamilyen műszaki feladat 
megoldására is alkalmazza, ahol felmerül 
a számítógép és a külvilág kapcsolatának 
megteretése, biztosan szüksége lesz egy 
olyan kártyára, ami ezt elvégzi. Ezt a kár¬ 
tyát érdemes olyan formában megtervez¬ 
ni, hogy univerzálisan, sokféle feladat el¬ 
végzésére alkalmas legyen. Rendelkezzen 
sok ki- és bemeneti ponttal, amelyek a 


probléma megoldásának megfelelően 
szoftverből működtethető. Ez a leírás egy 
ilyen bővítő elkészítését ismerteti olyan 
szinten, hogy az áramkör ez alapján az üz¬ 


letemben kapható egységcsomagból, ke¬ 
vés hardver ismerettel is megépíthető le¬ 
gyen. A többi már szoftverrel elintézhető. 
Az I/O kártya kapcsolási rajza az 1. ábrán 
látható. A felépítése egyszerű, csupán két 
PPI-ből és a hozzátartozó címkóder 
komplexumból áll. A címkóder az ADÓ, 
AD1...AD9, IOR, 10W vonalak állapotá¬ 
nak dekódolásával a következő címeket 
generálja: 


ICl A port: 

300H 

304H 

IC2 A port; 

308H 

30CH 

1C1 B port: 

301H 

305H 

IC2 B port: 

309 H 

30DH 

ICl C port: 

302H 

306H 

IC2 C port: 

30 AH 

30EH 

Parancs: 

303H 

307 H 

Parancs: 

30BH 

30FH 



Pl 
P2 
P 3 
P4 
P5 
P6 
P 7 
P8 

P 9 
P10 
Pll 
P12 
P 13 
P14 
P15 
P16 

P17 

pie 

P 19 
P20 
P21 
P22 
P23 
P24 


P25 
P26 
P27 
P20 
P 29 
P30 
P31 
P32 

P33 

P34 

P35 

P36 

P37 

P38 

P39 

P40 

P41 
P42 
P43 
P44 
P45 
P46 
P 47 
P48 

P49 






Titlí 


IBM PC—kax I/O kart wa 
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HARDVER 
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A címdekódóló redundáns, mert az 
AD2 vonal állapotát nem figyeli, ezért 
mind a két cím érvényes és teszőlegesen 
használható. 

A két 8255 adatvonala az IC6 8 bites 
kétirányú buszmeghajtóval kapcsolódik 
a számítógép adatbuszára (D0...D7), a 
2x31 pontos sloton keresztül. Ez lehetővé 
teszi, hogy XT-hez és AT-hez egyaránt fel¬ 
használhassuk. A külső áramkörök csat¬ 
lakozását a panellel párhuzamosan elhe¬ 
lyezkedő 2x25 pólusú CANON-G csatla¬ 
kozó biztosítja. A kivezetett csatlakozó- 
pontok a 8255-re megadott TTL egység¬ 
gel (tán out) terhelhetők. Ha ennél na¬ 
gyobb terhelést szeretne rákapcsolni, a 
teljesítményillesztést a feladatnak megfe¬ 
lelően biztosítani kell. Erre itt nem tudok 
konkrét receptet adni, hiszen nemigen van 
két egyforma feladat, ami egy az egyben 
ugyanazt az illesztést alkalmazná. Ha 
nagyfeszültségű rendszert kíván működ¬ 
tetni. a hálózat leválasztását optocsatoló- 
val vagy más hasonló szigetelést biztosító 
eszközzel meg kell oldani. 

Ilyen leválasztásra ajánlom a triakos 
kártyát, aminek leírása az 1993-as RT 
évkönyv 33. oldalán található. Mintada¬ 
rabja üzletemben megtekinthető, egység- 
csomagja megvásárolható. Ez 9 egymás¬ 
tól független nullátmeneti kapcsolót tar¬ 
talmaz, ami egyenként 600 W-tal ter¬ 
helhető. 

Eredetileg számítógéppel vezérelt fu¬ 
tófény és fényreklám számára lett kifej¬ 
lesztve, de használható minden olyan fel¬ 
adat vezérlésére, ahol elegendő a nullát¬ 
meneti bekapcsolás, nem követelmény a 
folyási szög vezérlés: például hőmérsék¬ 
let szabályozás, a motor, szelep ki-be kap¬ 
csolás stb. 


Az áramkör szerelése, 
élesztése 

Az áramkör a 2. ábrán látható kétől- 
dalon huzalozott, furatgalvanizált NYÁK- 
lemezre építhető fel. M i vei ennek elkészí¬ 
tése házi eszközökkel körülményes, cél¬ 
szerű a HOBBI ELEKTRONIKA üzleté¬ 
ben megvásárolni. Tel.: 1228-892. A 
NYÁK alapos ellenőrzése után a csatlako¬ 
zósort a slotnak megfelelőne igazítsa mé¬ 
retre, majd ültesse be az alkatrészeket a 3. 
ábra alapján. A 8255 alá használjon fogla¬ 
latot, hogy szükség esetén könnyen cse¬ 
rélhető legyen. Ha mindennel kész, még 
egy alapos ellenőrzés után dugaszolja be 
egy szabad bővítőcsatlakozóba és kap¬ 
csolja be a gépet. Ha rendben bejelentke¬ 
zik a rendszer, megpróbálkozhat a kártya 
felprogramozásával. A ki- és bemeneteket 
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3. ábra. 


a megadott portcímeken tudja írni, olvas¬ 
ni. A címzett bájt minden bitje megfelel 
egy-egy portvonalnak. Input üzemmód¬ 
ban beolvasva a bájtot megkapja a portok 
aktuális állapotát. 


Output üzemmódban pedig a bájt 
megfelelő módosításával változtathatja az 
egyes kimeneti vonalak állapotát. A 8255 
felépítéséről, programozásáról, regiszte¬ 
reiről nem adok részletes információt, ez¬ 


zel számtalan katalógusban találkozhat, 
de az RT is több alkalommal bemutatta 
már: pl. a 1992/9-es számban, hogy egyet 
említsek. 

A kártya programozásával itt nem 
foglalkozom, az a megadott cím és pa¬ 
rancsbájtok ismeretében a felhasználóra 
vár. 


1/0 kártya árajánlata 

Az I/O kártya mintadarabja megte¬ 
kinthető, egységcsomagban vagy készre 
szerelve megvásárolható a szerző üzleté¬ 
ben. Ára egységcsomagban 3500,— Ft. 

Külön vásárolható kétoldalas furatfé- 
mezett panel, ára 1200, Ft. Folyamatosan 
kapható egységcsomag, panel és részegy¬ 
ség a C-újságban korábban megjelent cik¬ 
keimhez is. Ezek egy része működés köz¬ 
ben megtekinthető, kipróbálható. Áraján¬ 
lat a 2. oldalon. 

A vidéki olvasóknak segít a szerző 
levelező-egységcsomagküldő szolgáltatá¬ 
sa. A megrendelt csomagot postán után¬ 
véttel elküldöm. Telefonon és levélben is 
rendelhet. 

A HOBBI ELEKTRONIKÁHOZ 
nem kell hosszú levél. Rendelését röviden 
egyértelműen közölje. 

Levélcím: 

HOBBI ELEKTRONIKA 
1656 BUDAPEST PF.50. 
Üzleteim: BUDAPEST 
VII. Dózsa György űt. 16. 

Jobbágy u. sarok 
Nyitva: H—P 10—17-ig, 
zárás után üzenetrögzítő. 

Tel./Fax: 122-8892 


(Folytatás a 23. oldalról) 


Sor¬ 

szám 

Program (fiié) 
neve 

Indítási elmek 

Sor¬ 

szám 

Program (fiié) 
neve 

Indítási elmek 

115. 

REACH FÓR THE SKY 

G 2000,SYS 8192 

142. 

THAI BOXING 

SYS 4864 

116. 

RED MOON 

SYS 4128 

143 

TIMESLIP 

SYS 4158 

117. 

ROBIN TO THE RESCUE 

SYS 9984 

144 

TÓM +4 

SYS 22528 

118. 

ROCKMANN 

SYS 4144,SYS 4102 

145 

TÓM THUMB 

SYS 22528 

119. 

ROCKMANN 2, 

SYS 4112 

146. 

TORPEDÓ ALLEY 

G 24F2.SYS 4120 

120. 

SEA STRIKE 

G 1300 

147. 

TOWER OF EVIL 

SYS 5120 

121. 

SETTING 

SYS 6400 

148. 

TRAIL MAIL 

G 1000 

122. 

SHAOLIN 

G 2000,SYS 8192 

149. 

TRAILBLASER 

SYS 9408 

123. 

SKIER 

SYS 16192 

150. 

TURBO RACER 

SYS 9506 

124 

SKRAMBLE 

SYS 14848, G 1E40 

151. 

TUTTI FRUTTI 

G 2000,SYS 8192 

125. 

SKYHAWK 

G 1061,SYS 4178,SYS 4176.G 1060 

152. 

TYCOON TEX 

SYS 6144 

126. 

SNOOKER 

SYS 16384 

153. 

US DRAG RACING 

SYS 10252 

127. 

SOLAR 

SYS 8448 

154. 

VEGAS JACKPOT 

SYS 8192 

128. 

SPACE FREEKS 

G 1010,SYS 4224,G 1080,SYS 4112 

155. 

VOX 

SYS 16199 

129. 

SPACE SWEEP 

G 2000.SYS 8192 

156. 

WATER GRANDPRIX 

SYS 7450,G 100E 

130. 

SPECTIPEDE 

G 127 A 

157. 

WILD CUP 

SYS 14100.G 3714 

131. 

SPEED KING 

G 3DB0 

158. 

WILD WESTERN 

SYS 4112 

132. 

SQUIRM 

SYS 9220 

159. 

WORLD CUP 

SYS 14102 

133. 

STAR COMMANDER 

SYS 4120 


(FOOTBALL) 


134. 

STELAR WARS 

SYS 4110 

160. 

XARGON WARS 

SYS 7296 

135. 

STREET OLYMPICS 

SYS 13100 

161. 

XZAP 

SYS 4346 

136. 

STROM A.B. 

G 5100 

162. 

YIE AR KUNG FU 1. 

SYS 10795.SYS 12900 

137. 

SUICIDE RUN 

SYS 8448 

163. 

YIE AR KUNG FU 2. 

SYS 10795 

138. 

SUPER CRAN 

SYS 4950 

164. 

ZAP'EM 

G 3360,SYS 13152 

139 

TANYERTORONY 

SYS 11776 

165. 

ZAXON 

SYS 6972 

140. 

TENISZ 

SYS 9952 

166. 

ZODIAK 

SYS 7748 

141. 

TERRA COGNITA 

G 2000,SYS 8192 

167. 

ZONE CONTROL 

G 1002 
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BUMBLE BEE. & FRIEND WO CRE14/ 



IDIE/MCIK 


Helló mindenkinek! 

Ez a cikk egy új rovat indulásának az 
első állomása. Ebben a rovatban a C64-es 
demók világába szeretném elkalauzolni 
az olvasókat. Erre a rovatra azért is nagy 
szükség van, mert sokan nem is tudják, 
hogy mit is jelent ez a szó a számítógépek 
világában, hogy ,,dcmó”. A ,,demó” a 
„demonstration” angol szó barátságo¬ 
sabb, rövidített változata. Jelentése: be¬ 
mutató. De felmerülhet a kérdés az embe¬ 
rekben, hogy kik készítik ezeket a bizo¬ 
nyos demókat? Körülbelül az 1980-as 
évek eleje felé számítógépes csapatok ala¬ 
kultak. Ezeknek a csapatoknak a tagjai ál¬ 
talában olyan emberek voltak, akik az át¬ 
lagosnál többet foglalkoztak a gépükkel, 
és olyan szintre fejlesztették számítógépes 
tudásukat, hogy képesek voltak produkál¬ 
ni saját készítésű dolgokat. Ezek a csapa¬ 
tok (világszerte) felvették egymással a 
kapcsolatot, és megalakították a C64-es 
scene-t. Ezascene mindmáig él. Ascene- 
re csak olyan csapatok tudnak bekerülni, 
akik tudnak valami keveset produkálni a 
64-esen, és ezáltal a scene-n lévő csapatok 
elismerik a létezésüket és befogadják a so¬ 
raikba. Ez a scene a csapatok között köl- 
csönesen egy Publikumot ad, de emellett 
remek lehetőséget ad az egymás közötti 
versengésre. Persze a scene-n belül nem 
minden csapat csinálja ugyanazt. 

A scene megoszlik alapvetően legal 
és illegal csapatokra (de van olyan is aki 
egyszerre mind a kettő!). Az illegal csapa¬ 
tok általában crack-okkal (játékok töré¬ 
seivel) foglalkoznak. Ilyenek például: 
IKARI+TALENT, DOMINATORS, LE- 
GEND. RED SECTOR stb.... A legal csa¬ 


patok játékokat, diszk-újságokat, zene il¬ 
letve grafika kollekciókat és demókat ké¬ 
szítenek. Ilyen például COSMOS, ORI¬ 
GÓ, BLACK MAIL, 20CC, CREST és 
még sorolhatnám. De mit is tartalmaznak 
a demók? Az igazi demók három fő dolgot 
tartalmaznak: 

1. grafikát, 

2. zenét, 

3. kódot. 

Grafika alatt saját készítésű rajzokat 
kell érteni. Pl.: a csapat nevét megjelenítő 
logo, karakterkészletek, valamilyen igazi 
képet ábrázoló Picture. 

Zene alatt saját készítésű, de nem 
mindig saját komponálású zenét kell érte¬ 
ni. Azok a csapatok, akiknek nincs zené¬ 
szük, azok általában más demóból vagy 
esetleg játékból lopott zenéket használnak 
demóikban. 

Kód alatt természetesen a gépi kódú 
rutint kell érteni, amely valamilyen vi¬ 
zuális effektet rak ki a képernyőre. Persze 
demó és demó között van különbség, mert 
nem mindegy, hogy melyik csapat csinál¬ 
ja. Azok a kóderek, akik még nem tudnak 
olyan jól kódolni azok nem tudják kihasz¬ 
nálni a gép képességeit 100%-osan. A 
jobb kóderek mindig olyan rutinokat ké¬ 
pesek előállítani, amely rutinok a maguk 
műfajában valamivel jobbak mint az őket 
megelőzőek, vagy pedig teljesen újak, és 
ezért az újdonság erejével hatnak. Ilyen 
kóder pl.: a CROSSBOW a CREST nevű 
csapatból. 

Természetesen a számítógépes scene 
tagjai nem eredeti nevüket használják a 
scene-n, hanem kitalálnak maguknak egy 
álnevet. 


A CROSSBOW is egy ilyen álnév, és 
a jelentése nyílpuska. Ez is mutatja, hogy 
teljesen mindegy, hogy mit választ magá¬ 
nak az ember, mert ez a fantáziájára van 
bízva. De miért csinálnak demókat? Van¬ 
nak akik csak hobbyból, vannak akik 
azért, hogy a top-listákon minél maga¬ 
sabbra kerüljenek, és vannak akik azért, 
hogy egy-egy demóversenyen induljanak 
a todíj reményében. Ezeket a demóverse- 
nyeket úgynevezett számítógépes találko¬ 
zókon, angolosan Partykon rendezik 
meg. Persze a Partykat is a scene valame¬ 
lyik vállalkozó szellemű csapata szokta 
megszervezni. Külföldön már cgy-két 
rangosabb Partyn elég magas díjakat lehet 
kapni egy demóversenyen (átszámítva kb. 
20—30—40 ezer forintot). 

A demók világában elég népszerűek 
az olyan Part-ok, amelyek world record- 
okat, vagyis világrekordokat tartalmaz¬ 
nak. Ez azt szokta jelenteni, hogy egy bi¬ 
zonyos effektből ugyanannyi raszter-idő 
alatt többet tud kirakni a képernyőre, mint 
az előző rekord. De, hogy ezt meg lehes¬ 
sen érteni, kitérek a raszteridő fogalmára: 

Egy 6 színű scroll mozog fel-le a kép¬ 
ernyőn. Mire a scroll-text véget ér a föltés 
is befejeződik, és a Part automatikusan 
elindul. 

1. PART 

Alul egy lxl karakteres fehér scrol- 
ler halad. Felül két vízszintesen dupla- 
szinusszal hullámzó szürke effektet rak ki 
24 karakter magasan. 

2. PART 

X+Y irányban nagyított multicolour 
spritc grafikák mozgatása az alsó-felső és 
oldalsó kereteken felfeléTjobbra ill. bal¬ 
ra. Nagyon nehéz időzítésű Part! 

3. PART 

Grafika Part. Felül egy AFLI lógó, 
rajta sprite-bobok köröznek. Alul egy-két 
képernyő széles bitmap lógó mozog fel-le 
és jobbra, illetve balra. A képernyő köze¬ 
pén egy vízszintesen nagyított sprite- 
scroll kommentálja az eseményeket. 

4. PART 

3 színű multicolour FILLED VEC- 
TOR-ok. Az object-ek transzformálód¬ 
nak, mind a 3 dimenzió tengely körül fo¬ 
rognak, és a mozgásuk realtime-ban kal¬ 
kulálódnak. Mindezek mellett a vektor 
rutin nagyon gyors, kb. 3—4 frame körül 
lehet. A Part csúcspontja egy áttetsző 
(glenz) és transzformálódó FILLED 
VECTOR, amely szintén gyorsan forog. 
A Partból a space megnyomásával akkor 
léphetünk csak ki, ha az összes object-et 
láttuk már. 

5. PART 

Egy strech-elő scroll halad a képer¬ 
nyőn. Felül egy BOOZE DESIGN lógó 
parkol. Ez nem is lenne nagy szám, hiszen 
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már rengeteg demóban találkozhattunk 
hasonló scrollokkal. A poén az, hogy a 
scroll az alsó keretre is kinyúlik! És emel¬ 
lett nincsen X irányban nagyítva! Szép 
raszterszíneket is láthatunk a scroll betűi 
alatt. 

6. PART 

A lemez megfordítása után egy szép 
shade-bob rutinban gyönyörködhetünk. 
A rutin 7 színű, 24 karakter széles és kb. 
20 karakter magas. 

7. PARI 

FLI-logó mellett a sideborder le van 
bontva. A kereten spriteokat láthatunk 
szép raszterszínekkel alatta. A kép alján 
egy nagy egyszínű scroll mozog tél-, illet¬ 
ve lefelé. Szép színes Part. És kissé nehéz¬ 
kes lehetett megkódolni, akárcsak a többi 
Partot... 

8. PART 

Hatalmas egész képernyős 3 színű 
transzformálódó FILLED VECTORÓ¬ 
KÁT láthatunk. A nagy méret miatt a ru¬ 
tin elég lassú, de ahhoz képes tűrhető 
gyorsaságú. Én úgy 10—12 frame-re tip¬ 
pelem. 

9. PART 

THE END Part. 2x2-es karakterek¬ 
kel szöveg váltakozik. Semmi különös 
nincsen a képernyőn, de azért szép a szö¬ 
vegváltó effekt. 

Átfogó véleményem a demóról: 

Mindvégig magas színvonalú kód tu¬ 
dásáról adott tanúbizonyságot az egész 
demó kódere: HCL. Ugyanez nem mond¬ 
ható el a grafikákról, de azért nem is vol¬ 
tak csúnyák (VODKA+HCL). Egy zene 
kivételével — amit HCL kóder létére 
komponált — az összes zene lopott volt, 
ezért a zenét nem értékelem. 

Kód: 90%. 

Grafika: 65%. 

A demót minden kedves demó gyűjtő 
figyelmébe ajánlom, mert nem szabad ki¬ 
hagyni a kollekciónkból. 

A második demó egy 1992-es alko¬ 
tás. A neve: MORE THAN NOPS/TA- 
BOO. Ez a csapat első igazi demója. Az¬ 
óta már egy újabb alkotásuk is megjelent. 

INTRO 

Először is be kell írnunk a nevünket, 
mert a demó regisztrál minden egyes em¬ 
bert aki megnézte. 

Azután egy sideborderen mozgó csú¬ 
nya lógó toppan be és mozog jobbra+ 
balra+fel+le. A lógó közepén egy kis 
scroll csúszik be. 

1. PART 

Mivel a csapat lengyel tagokból áll, 
ezért Lengyelország térképét láthatjuk 
pörögni a képernyőn. A vektor-grafika 
előre le van animálva, szóval se nem a for¬ 


o 


gás, sem a fillezés nem realtime! Alul egy 
nagy sideborder-scrollt láthatunk. 

2. PART 

Egy kis lazítás képpen játszhatunk 
barátunkkal sideborder TRÓN játékot. 

3. PARI 

Játék után játék következik. Egy kis 
kétszemélyes jégkorong-játék. A lab¬ 
dát az ellenfél kapujába kell mandí- 
nerezni. 

4. PART 

Egy nagyon szép sprite-zoomer ef- 
fektet láthatuk az összes kereten rengeteg 
ötletes effekttel és szépen kivitelezve. 
Nagyon látványos Part. 

5. PART 

Itt a vége, fuss el véle... szóval a THE 
END Partot láthatjuk. A képernyő tetején 
egy AFLI ,the end’ lógó álldogál. Lent 
egy upscroll fut felfelé. Megnézhetjük, 
hogy mennyi ideig néztük a demót, és az 
elején beadott nevünk felkerül az örök lis¬ 
tára. A space megnyomásával egy megle¬ 
petés effektet láthatunk. 

Kódolta: KM, MMS. 

Grafika: alig volt az egész demó¬ 
ban belőle, de ami volt az nem volt túl 
szép. 

Zene: lopott, szóval most sem ér¬ 
tékelem. 

Értékelés: 

A gép egy másodperc alatt a képer¬ 
nyőt 50 alkalommal frissíti fel, vagyis 
50-szer fut végig az a bizonyos elektron¬ 
sugár a képcsövön, ami az aktuális képet 
megjeleníti a számunkra. 1 darab ilyen 
képernyő-újrarajzolást egy megszakítás¬ 
nak, angolul FRAME-nek hívjuk. Egy 
ilyen megszakítás ugyan a másodpercnek 
csak a tört része alatt zajlik le, de ezalatt 
a gép rengeteg gépi kódú utasítást tud vég¬ 
rehajtani. Egy effekt csak akkor lesz az 
ember szeme előtt folyamatosan mozgó és 
szép, ha egy másodpercen belül mind az 
ötvenszer újból rajzolódik ki, de persze 
minden újrarajzolás között az effekt képe 
változik. Ha például egy effekt túl bonyo¬ 
lult ahhoz, hogy egy megszakítás alatt 
végrehajtható utasítások száma elegendő 
legyen a kirakásához, akkor már csak 
minden 2, 3, 4 stb. megszakításra tudja a 
gép kirakni a képernyőre, tehát a normális 
50 frissítés helyett 25-ször, 12,5-szer stb. 
frissül a képernyő, és ezért az effekt aka- 
dozóan, nem szépen fog kinézni. Ezért ál¬ 
talában egy effekt annál jobb, minél keve¬ 
sebb frame alatt kerül ki a képernyőre. Ha 
egy frame alatt végrehajtható utasítások¬ 
nak a fele is elég a bizonyos effekt kiraká¬ 
sához, akkor azt szokták mondani, hogy 
az effekt a fele raszteridőt használja csak 
ki. 

Tehát a mennyiségi világrekordok 
attól függenek, hogy a kóder mennyire 


tud a raszteridővel takarékoskodni egy 
frame-n belül, és ezáltal minél több effek¬ 
tet kirakni a képernyőre. 

Egy jó példa erre a DYCP rekordok 
sorozata. A DYCP a Different Y Charac- 
ter Position rövidítése. Azt jelenti, hogy 
egy scroll fut a képernyőn jobbról-balra, 
melynek minden egyes karaktere saját Y 
mozgással rendelkezik, ezért egy szép 
szinuszos mozgást ad a scrollnak. A 
MEGADYCP-ek is ugyanúgy néznek ki, 
mint a sima DYCP-k, csak a szinuszok 
magasabb mint 6 karakter, és ezért bizo¬ 
nyos kódtechnikai szempontból nehezebb 
őket előállítani. Az első MEGADYCP-t 
valamikor a 80-as évek végén készítették 
el, és ekkortól kezdődtek a MEGADYCP 
rekordok megszületései. Először egy 
ABS/SPHINX nevű kóder készített 2 db 
MDYCP-t. Nemsokkal utána MADU- 
PLEC/NATO kiadott egy demót, aminek 
az egyik Partjában beállította az új rekor¬ 
dot, vagyis 3 db MDYCP-t. Majd VI- 
SION/CREST 5 darabot csinált, és még 
mindig nincsen vége. A CREST másik 
kódere CROSSBOW egy későbbi CREST 
demóba csinált 11 (!) darabot. Már ekkor 
alig lehetett a nagy kavalkádban a scrollo- 
kat elolvasni, de ez nem akadályozta meg 
az INTRUDERS nevű csapat kóderét, 
hogy készítsen 16 darabot. CROSS- 
BOW/CREST és CRUZER/CAMELOT 
egy időben adta ki külön-külön demó- 
jában az új rekordot, ami 20 darab 
MDYCP-t tartalmazott. Ekkor már 

1992- ben járunk. A tudomásom szerinti 
utolsó rekordot 1993 márciusa körül adta 
ki WAX/WOW nevű német kóder, aki 22 
darab MDYCP-t állított elő. És még ki 
tudja, hogy a jövő mit tartogat a szá¬ 
munkra... 

Ez a példa is mutatja, hogy néhány év 
alatt a kódolási technika milyen sokat tud 
fejlődni, és 2 MDYCP-ből 22-ig is el lehet 
jutni. De persze most se felejtsük el, hogy 
ezek a rekordok mind ugyanannyi rasz¬ 
teridőt ettek, és lám elég nagy különb¬ 
ségek jöttek létre. A kóderen múlik min¬ 
den, hogy mennyire tud a raszteridőn 
spórolni. 

Most következzen néhány demónak 
az értékelése. Az első paciens: 
TOTALY STONED 2/BOZE DESIGN 

Ez a csapat második demója, és az 

1993- as „THE COMPUTER CROSS 
ROAD” Partyn lett kiadva, ahol nem ke¬ 
vesebbet, mint a második helyet szerezte 
meg. A leírást Partról Partra fogom el¬ 
követni. 

INTRO 

A képernyő tetején egy BD-logó vál¬ 
togatja magát egy FLI-BOOZE DESIGN 
lógóval. Alul egy 3 színű nagy scroll 
halad. 
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Cr 

IRQ IXJADER 

Ez az IRQ LOADER található min¬ 
den Part után. Mialatt a következő Part 
töltődik. 

Kód: 70%. 

Grafika: 20%. 

Mindent egybevetve aranyos kis 
demó, és ajánlom mindenkinek a figyel¬ 
mébe. mert érdemes megnézni. 

És most jöjjön egy top 20-as demó- 
lista. 

1. CREST AVANTGARDE/CREST 

2. TOTALLY STONED 2/BOOZE DESING 

3. PROMETHEUS UNBOUND/FLASH INC. 

4. PLACE IN THE SPACE/TABOO 

5. VISUALITY 3/VISUAL REALITY 

6. WONDERLAND 10/CENSOR DESIGN 


7. PRODUKT HANDLER/CAMELOT 

8. COMA LIGHT 8/OXYRON 

9. ICE CREAM CASTLE/CREST 

10. FLATLINE/CADGERS 

11. A. 0. S. II/BEYOND FORCE 

12. COMA LIGHT 10/OXYRON 

13. TAAGEKAMMERET/STARION 

14. GOATLAND/NOICE 

15. DUTCH BREEZE/BLACK MAIL 

16. WET DREAMS/PARADIZE 

17. THE UN NAMED DEMO/CAMELOT 

18. DOOLITTLE/FOCUS 

19. LUNACY 7/ANTIC 

20. IMSE VIMSE GET/NOICE 

Mostanra ennyi lenne a demórovat. 
Remélem sokaknak elnyerte a tetszését és 
a következő hónapban is elolvassátok, és 
sokan kedvet kaptok a demók gyűjtésére. 


A sok játék mellett jól esik egy-két szép 

demó megtekintésére. Végezetül egy kis 

szótár azok kedvéért, akik nem értettek 

egy-két idegen csengésű szót. 

bob — labda, golyó 

filled — kiszínezett 

frame — egység 

intro — bevezető 

object — tárgy 

realtime — valós idő 

scene — színpad, szín 

scroll — futó szöveg 

sideborder — oldalsó keret 

strech — nyúlás 

text — szöveg 

(CLARENCE) 


SUIPIEIP €Am 

A SUPER CARS nem szokványos autóverseny. Célunk a ki¬ 
lenc pályán bebizonyítani a gépnek, hogy mi vagyunk a jobbak. 
A szolid vezetés nem célravezető. Inkább ügyes gazdálkodással, 
gondolva arra is, hogy új kocsikat kell majd vennünk a jobb ered¬ 
mények eléréséhez, vásároljunk a GARAGE azaz a garázsban 
a szépnek nem mondható hölgytől különböző extra cuccokat 
amivel autónkat tuningolhatjuk. 

Ezek közül válogathatunk: 

POWER STEER1NG: a lóerőre van jótékony hatással 

TURBO CHARGER: turbó 

HIGH SPEED: nagy sebesség 

RETRO: akárcsak az előbbi 

SPIN ASSIST: a manőverezésben segít 

FRONT MISSILE: rakéta előre 

REAR MISSILE: rakéta hátra 

SIDE ARMOUR: oldalpajzs. Ha ügyesen ütközünk az el¬ 
lenséges autókkal, azok megpördülnek. 

ENGINE: motor 
TIRES: gumik 
BODY: karosszéria 


FUEL: üzemanyag 

Az ENTRANCÉ nevű helységben autókat vehetünk. Ezek 
közül a legdrágább a 8.0-ás RETRON PARSEC TURBO. Ennek 
ára közel 200.000.£. De ne ijedjünk meg. Az árba a régi autó 
ára beleszámít. Meg kell vennünk, ha ütőképesek akarunk 
maradni. 

Ha mind a kilenc pályán végigküzdöttük magunkat a követ¬ 
kező nehézségi szinten folytathatjuk. Itt már bokor, tócsa és több 
autó nehezíti a versenyt. Kompromisszum: a versenyt hét kör 
alatt kell teljesíteni öt helyett. 

Irányítás 

JOYSTICK 

JOBBRA—BALRA, kormány 
ELŐRE, rakéta kilövése előre 
HÁTRA, rakéta kilövése hátra 
TŰZ, gáz. Ha nem nyomjuk fékez 
A szép grafika, zene és a játék hangulata kellemesnek 
mondható. A játszhatóság hagy maga után kívánnivalót. 

Aki szereti az ilyen típusú programokat nem fog csalódni 
benne. Lehet, hogy az sem aki nincs oda az autóversenyekért. 

Bár a különböző pályák egy idő után unalmassá válnak, s 
ezen csak egy formatálás segít. 

BBEE 
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IGEEEN! Megrendelem 

az 



i 

i 


ACOMP Kft. 



Ha kivágta 

i 


borító hátoldalon szereplő kínálatából 


a megrendelőlapot, 

i 

i 


a feladó címére postai utánvétellel az alábbi termékeket: 


kérjük tegye 


.... db 

. Ára . 

Ft/db: összesen . 

.... Ft 

felbélyegzett borítékba, 

i 

i 

.... db 

. Ára . 

Ft/db: összesen . 

.... Ft 

címezze meg, 

i 

.... db 


Ft/db: összesen . 

.... Ft 

és úgy küldje el. 

i 

| 

.... db 


Ft/db: összesen . 

.... Ft 


| 

.... db 

. Ára . 

Ft/db: összesen . 

.... Ft 

Köszönjük! 

i 

. db 


Ft/db: összesen . 

.... Ft 


i 

i 



Mindösszesen: . 

.Ft 


i 


Tudomásul veszem, hogy a csomagküldés átfutási ideje 2-4 hét. 



i 


50.000,- Ft feletti megrendelésre csomagküldést nem vállalunk! 



1 

l 


Az áraink a postaköltséget nem tartalmazzák! 
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KERESZTREJTVÉNY 



— Lapozzunk vissza az 1993/10-es szám¬ 
hoz és ott találunk öt rovatot, amit kereszt- 
rejtvényünkben rejtettünk el. 

VÍZSZINTES: 1. Ritkán találkozik 
az ember ilyen szórakoztató program¬ 
mal . 13. Trója másik neve, mely alapítójá¬ 
tól Ilosztól ered. 14. Ősi itáliai istenség. 
16. Kettős betű. 18. Ritka férfinév. 20. La¬ 
boré bal oldali mellékvize. 21. Somogyvá- 
ri Rudolf monogramja. 22. Magyar Opti¬ 
kai Művek rövidítése. 24. Helység Sza- 
bolcs-Szatmár megyében. 26. Idegen 
pénznem. 27. Elán. 29. Van ilyen partner 
is. 30. Vulnusa. 31. Kálium és aktínium 
vegyjele. 33. Helység Veszprém megyé¬ 
ben. 34. Dohányzik. 35. Ilyen fa is léte¬ 
zik. 37. Erős ital. 39. Hahnium vegyjele. 
40. Néhány hónapja jelent meg a piacon 
egy új mászkálós ügyességi játékprog¬ 
ram. 41. Kétes(!). 43. Testrész. 44. Kert. 
45. Másik kettős betű. 47. Igavonó állat. 
48. Helység Borsod-Abaúj-Zemplén me¬ 
gyében. 50. Ausztriai és németországi 
gépkocsik jelzései. 51. Azonos az 53. füg¬ 
gőlegessel. 52. Komárom megyei város. 
54. A föld burkának legkülső, főképpen 
szilíciumból és alumíniumból álló, kb. 
100 km vastag rétege. 55. Fordítva: cse¬ 
csemő. 57. Becézett férfinév. 59. Három 
különböző mássalhangzó az ABC-bői. 61. 
Ilyen pörkölt is van. 62. Gallium vegyje¬ 
le. 63. Dohányzik. 65. Iráni uralkodó. 67. 
Római 550. 68. Hegység, itt rejtőzött 
Anzu .amikor elrabolta a sorstáblákat. 70. 
Patak. 72. Az alábbiakban ismertetésre 
kerülő program talán a legjobban sike¬ 
rültjáték a maga kategóriájában, a gaz¬ 
dasági szimulátorok között. 

FÜGGŐLEGES: 2. Azonos az 51. 
vízszintessel. 3. Németországi város. 4. 
Végtelenül Európé anyja volt. 5. Lakoma. 

6. Kubai és norvégiai gépkocsik jelzései. 

7. Visszaír (!). 8. Idegen férfinév. 9. Védő¬ 


szentje a szülő anyáknak. 10. Huzat. 11. 
Betű kimondva. 12. Törökországi kikötő¬ 
város. 15. Német város. 17. Gléda. 19. 
A műszaki tudománynak az az ága, 
amely elektroncsövekkel, ioncsövekkel. 


tranzisztorokkal, félvezetőkkel foglal¬ 
kozik, valamint ezek alkalmazását tár¬ 
gyalja. 21. Vulnus. 23. Jeruzsálem elég 
messze van ide. 24. Olaszországi, svédor¬ 
szági, uruguayi gépkocsik jelzései. 25. 
Fiúmétól délre sziget. 26. Két szó: irány¬ 
szó, kötőszó. 28. Aszalt gyümölcs. 30. 
Csongrád megyéből való. 32. Záró. 34. 
Víz fajta. 35. Argentínai gépkocsijelzés. 
36. Szülő. 37. Ferde. 38. Másik kettős 
betű. 39. Egyik szoftver neve. 42. Apol¬ 
lón papnője. 46. Egyik megyénk. 48. Ipari 
városunk. 49. Nóta. 51. Testrész. 53. Titán 
vegyjele. 56. Csak félig Bükk. 58. ...ka, 
helység Tolna megyében. 60. Ilyen pa¬ 
rancs van a honvédségnél is. 63. Azonos 
a 34. vízszintessel. 64. Becézett leánynév. 
65. Vidéki vendégmarasztaló. 66. Létezik 
ilyen ábránd is. 68. Ételízesítő. 69. ... — 
napisten Udar-tutu fia volt. 70. Személyes 
névmás. 71. Róma közepe. 

(A rejtvényben a rövid és a hosszú 
ékezetek között nem teszünk különbsé¬ 
get.) A rejtvényt nem kell beküldeni, mert 
szórakoztató jellegű! 


K- 

Feladó: 


□ □□□ 

ACOMP Kft. 

Csomagküldő Szolgálata 

Budapest 

XIV. Álmos vezér park 20. 

1141 


Mokos István 




































































































































APRÓCSKÁK 


Cr 

Keresem megvételre használt 
(korábbi), de még jól műkö¬ 
dő ACTION REPLAY vagy 
hasonló menüvel rendelkező 
cartridget C-64-re, lehetőleg 
leírással. Cím: Kövesdi Ti¬ 
bor, 3700 Kazincbarcika, 
Szegfű u. 14. 


C-64 számítógép újszerű 
állapotban eladó. (1541-11 
floppy, magnó, 2 joystick) 
Ára: 24 000 Ft. 

Érd.: Szabó: 12-87-251. 


C-64-re 4800 játék, 1600 fel¬ 
használói programból válo- 
gathasz. Válaszborítékért tá¬ 
jékozató. Halász, 6001 Kecs¬ 
kemét, Pf.: 512. 

C-64-re 3 Ft-tól eladók prog¬ 
ramok kazettára és lemezre. 
Széles választék, megbízha¬ 
tóság. Válaszborítékért listát 
küldök. Cím: Kovács Krisz¬ 
tián, 6750 Szegcd-Algyő, 
Bartók Béla u. 6. 

Eladó egy működőképes 
Plus/4-es számítógép + mag¬ 
nó + programkazetták + 
Commodore Újságok. Ár¬ 
ajánlatokat a következő cím¬ 
re kérek: Czifra Zoltán, 5231 
Fegyvernek, Kiss J. u. 18/a. 

NYÁK-tervező elektronikai 
nyilvántartó leírás programok 
C-64. Válaszborítékért ismer¬ 
tetőt küldök. Varsányi, Szo- 
mathely, Nagy László u. 11. 

AMIGA 2000 eladó tv-mo- 
dulátorral, 2 MB bővítővel, 
könyvekkel ára 50 000 Ft. 
Gódor József, 5126 Jászfény- 
szaru, Pf.: 14. 

Eladó GEOS C-64-re. Vá¬ 
laszborítékért tájékoztató al¬ 
kalmazói és játék programok¬ 
ról. Váradi, 2151 Fót, Pf.: 43. 

C-64-hcz olcsón eladó 1 db 
epromégető, 1 db eprombank 
és 2 db játékcartridge. Pázsit, 
5650 Mezőberény, Várkonyi 1. 

576-ban megjelent és egyéb 
C-64-es programok eladása 
lemezen, kazettán. Lemezes 
programok kazettás változa¬ 
tai. Olcsó árak. Deutsch Sza¬ 
bolcs, 8749 Zalakaros, Fő u. 
19. Tel.: 93-340-481. 


C-64-re programok 15 Ft¬ 
ért! Válaszborítékért lista! 
COMPI-CREW, 9730 Kő¬ 
szeg, Deák F. u. 3/e. 4. ajtó. 

C-64-es C+4 kazetták 200 
Ft/db, lemezek 60 Ft/db 
áron! Listát küldök. Csernáth 
Zoltán, 1171 Budapest, Dal¬ 
nok u. 5. 

Helló! Akarsz C-64-re olcsón 
programokat? Akkor írj! 
Cím: The best soft, 7400 Ka¬ 
posvár, Hermann O. u. 60. 

C-16 + 4-re 280 játék örökélet 
poke-jai, indítási címei. 7 ol¬ 
dal: 100 Ft. Soós Viktor, 7355 
Nagymányok, Katona u. 11. 

C-16 és +4-re programokat 
adok-veszek-cserélek (5 Ft/db). 
Soós Viktor Sovisoft, 7355 
Nagymányok, Katona u. 11. 

Szeretnék 1250 db lemezt C- 
16 + 4-re? 17 Ft-os bélyegért 
tájékoztató. Soós Viktor, 
7355 Nagymányok, Katona 
u. 11. 

C-16 + 4-re programleírások 
10 Ft/gépclt oldal. 17 Ft-os 
bélyegért, tájékoztató. Soós 
Viktor, 7355 Nagymányok, 
Katona 11. 

GEOS és POKE lexikon. 
NYÁK tervezőprogram C- 
64-re alkatrésznyilvántartó 
programok, C-64-bővítések. 
Varsányi, Szombathely, Nagy 
L. u. 11. 

Színvonalas C-64-es progra¬ 
mok eladása lemezen, kazet¬ 
tán. Lemezes programok ka¬ 
zettás változatai. Olcsó árak! 
Kérj listát! Deutsch Sza¬ 
bolcs, 8749 Zalakaros, Fő u. 
19. tel.: 93-318-481. 

C-64-re játékok 15 Ft-ért! 
Válaszborítékért lista! 
COMPI-CREW, 3730 Kő¬ 
szeg, Deák F. u. 3/e. 

Eladó C-64 + 1571 floppy + 
magnó + 1 joy + lemezek + 
irodalom. 20 000 Ft-ért. Te¬ 
lefonon: 1-639-673 (esti 

órákban)., 

C-64 programcsere lemezen 
Action replay-t és leírást ke¬ 
resek! Cím: Cseh Balázs, 
8636 Balatonöszöd, Szabad¬ 
ság út 112. 


PÖTYÖGŐ SZOLGÁLAT 

í 

C64 

86/ 0 

GOTO X Databecker 

40.- 

2 

C64 

86/ 0 

GOTO X Data Walt 

40.- 

3 

C64 

86/ 0 

Hangzó billentyűk 

40.- 

4 

C64 

86/ 0 

Memória ki Írás 

40.- 

5 

C16 

86/ 0 

Rajzoló program 

90.- 

6 

C64 

86/ l 

Atsorszámozó program 

40.- 

7 

C64 

86/ 1 

Help trace 

40.- 

8 

C16 

86/ 1 

Hangmemória 

110.- 

9 

C64 

86/ 1 

Teke home computer 

60.- 

10 

C64 

86/ 1 

Csak kezdőknek 

40.- 

11 

C64 

86/ 1 

Bi1lentyükódok 

40.- 

12 

C64 

86/ 1 

Autonumber 

60.- 

13 

C16 

86/ 1 

Basic bövitó 

60.- 

14 

C64 

86/ 1 

BASIC billentyűzet 

60.- 

15 

C64 

86/ 3 

Oszlopdiagram 1. 

90.- 

16 

C64 

86/ 2 

Per 1 fériavizsgálat 

40.- 

17 

C64 

06/ 2 

Sprite mozgatás IRQ 

60.- 

18 

C64 

86/ 2 

NOSCROLL 

60.- 

19 

C64 

06/ 3 

Lemezmenü 

40.- 

20 

C64 

86/ 3 

Ékezetes nagybetűk I. 

40.- 

21 

C64 

06/ 3 

Ékezetes nagybetűk 11. 

40.- 

22 

C64 

86/ 3 

Notesz 

110-- 

23 

C16 

86/ 2 

TURBOBASIC 

130.- 

24 

VC20 

86/ 3 

Péter és Pál 

90.- 

25 

C64 

86/ 4 

Mozart 

90.- 

26 

C64 

86/ 3 

Segítség listázáshoz 

60.- 

27 

C64 

86/ 3 

MERGE 

60.- 

28 

C16 

86/ 3 

Billentyűzet kódoló 

40.- 

29 

Cl 6 

86/ 3 

Kódoló szabadon 

40.- 

30 

C64 

86/ 4 

AUTO-INSERT 

40.- 

! 31 

C64/+4 

86/ 4 

Kalandjáték/Gengszter 

110.- 

32 

VC20 

86/ 5 

TG MONITOR 

130.- 

33 

C16 

86/ 4 

Ablakok 

60.- 

34 

C16 

86/ 5 

Karácsony 

60.- 

35 

C64 

86/ 6 

Kockás zene 

60.- 

36 

C64 

86/ 5 

Képújság 

60.- 

37 

C64 

86/ 5 

Sprite editor 

90.- 

38 

C16 

86/ 6 

SAVÉ LOAD szignál 

40.- 

39 

C64 

86/ 6 

Rubik kocka síkban 

90.- 

40 

C64/S 

86/ 6 

Oszlopdiagramm 3. 

60.- 

41 

VC20 

86/ 6 

Winnvrtou 1 . 

60.- 

42 

VC20 

86/ 6 

Winnetou II. 

60.- 

43 

C64 

86/ 6 

Stringrendezö 

60.- 

44 

C64 

87/ 1 

Lemezátnevező 

40.- 

45 

C64 

87/ 1 

Óra 

60.- 

46 

C64/S 

87/ 1 

Hiperkocka 

60.- 

47 

C16 

87/ 1 

ASSEMBLER 

130.- 

48 

C16 

07/ 2 

Takarító 

60.- 

49 

C64 

87/ 2 

Quadro-vizió 

40.- 

50 

C16 

87/ 2 

Te lezsák 

130.- 

51 

C64 

07/ 3 

Stingkeresö 

40.- 

53 

C16 

87/ 3 

Hangos billentyűk 

40.- 

54 

VC20 

07/ 3 

Rajzoló 

40.- 

55 

♦ 4 

07/ 4 

Karaktertervező 

110.- 

56 

C64 

87/ 4 

Dupla BASIC 

40.- 

57 

VC20 

87/ 4 

Ferde torony 

90.- 

58 

C64 

87/ 5 

GEOMASTER/lefordított/ 

130.- 

59 

C64 

07/ 5 

GEOMASTER/BASIC változat/ 

110.- 

60 

C64 

07/ 5 

Golyózó 

110.- 

61 

■f4 

87/ 5 

Magyar BASIC 

110.- 

62 

+4 

87/ 5 

Kukkoló-BASIC monitor 

60.- 

63 

+4 

07/ 6 

Sprite editor ♦ 

110.- 

64 

C64 

87/ 6 

Magnó directory 

130.- 

65 

C16 

87/ 6 

Nagyfelbontású hardeopy 

110.- 

66 

Cl 6 

87/ 6 

Sztereó vízió 

40.- 

67 

C16 

87/ 6 

Kukkoló-Szuper peek 

90.- 

68 

C16 

07/ 7 

Mentőöv 

40.- 

69 

4-4 

07/ 7 

Ablakozó 

110.- 

70 

C64 

87/ 8 

Commo-do-re/BASIC vált. 

130.- 

71 

C64 

87/ 8 

COMMO-do-re/lefordított/ 

130.- 

72 

4-4 

87/ 0 

Kukkoló-bövitett monitor 

60.- 

73 

4-4 

87/ 8 

Ékezetes betűk 

60.- 

74 

4-4 

87/ 8 

PLUTO-rajzoló program 

130.- 

75 

VC20 

87/ 8 

Ma jomfogó 

90.- 

76 

C64 

87/ 8 

Többtényezős döntések 

90.- 

77 

C64 

87/ 8 

Raszter 

60.- 

78 

C16 

87/10 

Append 

90.- 

79 

C64 

87/10 

Nagyi tó 

90.- 

80 

C64 

87/10 

Makrók 

90.- 

81 

C120 

87/11 

Stuktúra 

60.- 

82 

C128 

87/11 

Emlékeztető 

60.- 

83 

C64 

87/11 

Monitorka 

90.- 

04 

C16 

87/11 

Ciraröl-címre 

60.- 

85 

C64 

07/12 

Gyors scroll 

90.- 

86 

C64 

87/12 

1541 

90.- 

87 

C64 

87/11 

1541 4- Monitorka 

130.- 

88 

C16 

87/12 

Lokális változók 

90.- 

89 

C16 

07/12 

Tekergő 

90.- 

90 

C64 

08/ 1 

Fekete-fehér 

40.- 

91 

C16 

80/ 1 

Datásitó 

60.- 

92 

C64 

08/ 1 

Programkönyvtár 

90.- 

93 

C16 

08/ 1 

Katasztrófa 

60.- 

94 

VC20 

08/ 2 

TG BASIC 

130.- 

95 

C64 

88/ 2 

Topy typer 

90.- 

96 

C64 

08/ 2 

sprite editor super 

130.- 

97 

C16 

88/ 2 

katasztrófagép 

60.- 

98 

C64 

88/ 4 

Modulgrafika 

130.- 

99 

C64 

88/ 4 

Segítség! 

60.- 
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100 

C64 

88/ 5 

Gurítsd a golyót! 

130.- 

101 

+4 

88/ 5 

Egyenesrajzoló 

60.- 

102 

+4 

88/ 6 

Szótár 

130.- 

103 

C16 

88/ 7 

Gitáriskola 

130.- 

104 

C64 

88/ 7 

Gyors BASIC 

60.- 

105 

C128 

88/ 7 

Super hardcopy 

90.- 

106 

C128 

08/ 7 

Grafikus nyomtatás 

90.- 

107 

C64 

88/ 9 

Fást va1idate 

130.- 

109 

C64 

88/ 9 

data bővítő 

60.- 

110 

C64 

88/ 9 

DEF FN/X/ 

60.- 

111 

+4 

88/10 

Magyarosító 

110.- 

112 

C64 

08/10 

Diszkkezelö 

90.- 

113 

C16 

08/10 

DISASSEMBLER 

60.- 

114 

C64 

88/11 

Négy képernyő 

40.- 

115 

C64 

88/11 

Ablakok 

40.- 

116 

C64 

88/11 

ASCII képernyő 

40.- 

117 

C64 

88/11 

Pi1lanatfelvétel 

40.- 

110 

C64 

88/11 

B1 1 nky 

40.- 

119 

C64 

08/11 

Színes villogtató 

40.- 

120 

C64 

08/11 

80 karakteres üzem 

40.- 

121 

C64 

88/11 

Vi1logtató 

40.- 

122 

C64 

80/11 

Joystick lekérdező 

40.- 

123 

C64 

88/11 

Gyors sprite mozgatás 

40.- 

124 

C64 

88/11 

DEF FN - másképpen 

40.- 

125 

C64 

88/12 

Szuper input 

90.- 

126 

C64 

88/12 

Ugráló színsávok 

60.- 

127 

C64 

89/ 1 

PRINT AT 

40.- 

128 

C16 

89/ 1 

Funkcióbi11entyük 

40.- 

129 

C64 

88/12 

Minihelp 

40.- 

130 

C64 

89/ 2 

Házi pók 

90.- 

131 

C64 

89/ 2 

Csi1lagos ég 

60.- 

132 

C64 

89/ 1 

Szalagról lemezre 

90.- 

133 

C64 

89/ 1 

Kmf fel 

110.- 

134 

+4 

89/ 1 

Zombi 

130.- 

135 

C64 

89/ 1 

Kétoldalas listázó 

130.- 

136 

♦ 4 

89/ 1 

Objektív osztályozás 

110.- 

137 

♦ 4 

89/ 2 

Tömöritő 

l i 

138 

+4 

89/ 2 

Kifejtő 

40.- 

139 

+4 

89/ 3 

3-plusz-l magyarul 

90.- 

140 

♦ 4 

89/ 3 

Napló-kezelő 

60.- 

141 

♦4 

89/ 3 

Analóg óra 

40.- 

142 

C128 

09/ 3 

Javított renumber 

90.- 

143 

♦ 4 

91/ 6 

Beszélő C44 

1 i 

144 

C64 

89/ 4 

Keret csíkozás 

-l i 

145 

C64 

89/ 4 

Mozgó felirat 

40.- 

146 

C64 

09/ 4 

26. sor 

90.- 

147 

C16 

09/ 4 

Optinput 

60.- 

148 

C16 

89/ 4 

Turbo-block 

60.- 

149 

C16 

89/ 4 

Finom scrol1 

60.- 

150 

+4 

09/ 4 

Animáció 

130.- 

151 

C128 

89/ 4 

Pót funkciók 

40.- 

152 

PLUS/4 

89/ 5 

Betüradar 

90.- 

153 

C64 

09/ 5 

BHP virús kereső 

90.- 

154 

C64 

89/ 5 

Képmutató 

130.- 

155 

C128 

89/ 5 

VDC mint RAM floppy 

60.- 

156 

C128 

89/ 5 

Joy Sprite 

60.- 

157 

C64 

89/ 5 

Javított list 

60.- 

158 

C64 

89/ 5 

Zenei segédlet 

130.- 

159 

C16 

89/ 6 

Szinbeá11ító 

60.- 

160 

C16 

89/ 6 

PLUS/1 listázó 

90.- 

161 

♦4 

89/ 6 

Fást validate 

130.- 

162 

C64 

89/ 6 

Balnyilcopy 

90.- 

163 

C64 

89/ 6 

3-D labirintus 

130.- 

164 

C64 

09/ 6 

Mini virus 

90.- 

165 

C128 

89/ 6 

VDC-window 

60.- 

166 

C64 

89/ 6 

Cimkeiró 

60.- 

167 

C64 

89/ 6 

Piros-fehér-zöld képernyő 

40.- 

168 

C64 

89/ 7 

GEN-GET-INPUT 

90.- 

169 

+4 

09/ 7 

Szinbeál1itás 

60.- 

170 

+4 

89/ 7 

Nagyitó /079 átirás/ 

110.- 

171 

+4 

89/ 7 

80 karakteres szövegszerk 

180.- 

172 

C16 

89/ 7 

Ékezetes betűkészlet 

130.- 

173 

C16 

89/ 7 

Kisebb ékezetes nagybetűk 

90.- 

174 

C64 

89/ 7 

Gyors directory 

90.- 

175 

C64 

89/ 7 

AUTOSTART 

90.- 

176 

C64 

89/ 7 

MULTI 16 

90.- 

177 

C64 

89/ 7 

MULTI 16 DEMO 

90.- 

178 

C64 

89/ 7 

Egér 64 

90.- 

179 

C16 

89/ 7 

Flash-Load 

90.- 

180 

C16 

89/ 7 

BASIC-LISTA-SCROLL 

90.- 

181 

+ 4 

89/ 7 

2x2 karakterek 

40.- 

182 

+4 

89/ 7 

2x2-es karakterek 

40.- 

183 

C16 

89/ 7 

Kereső 

40.- 

184 

C16 

89/ 7 

Boritékcimezö 

110.- 

185 

C64 

89/ 7 

DEC-HEX-BIN 

130.- 

186 

C64 

89/ 7 

Object savé 

60.- 

187 

C64 

89/ 9 

Sprite 

90.- 

108 

C64 

89/ 9 

Bioritmus 

60.- 

189 

Cl 6 

89/ 9 

Turbo Trans 

150.- 

190 

C64 

89/10 

Névjegy 

60.- 

191 

C64 

89/10 

Kórokozó 

90.- 

192 

C64 

89/10 

SCAN 

90.- 

193 

44 

89/10 

DlSC CRACK 

130.- 

194 

C64 

09/11 

Függvényábrázolás 

180.- 

195 

C64-16 

09/11 

Uj Optinput 

90.- 

196 

44 

89/11 

Számkirakó 

130.- 

197 

C64 

89/11 

Cé1 lövölde 

60.- 

198 

C64 

89/12 

Esperanto 

110.- 


199 

♦4 

89/12 

Lépegető 

90.- 

200 

+4 

90/ 1 

Raszter bűvölet 

40.- 

201 

+4 

90/ 1 

TOOL-7.0 

110.- 

202 

C64 

90/ 1 

Óra a kereten 

90.- 

203 

C64 

90/ 1 

Mutatópálca 

60.- 

204 

C64 

90/ 1 

Karaktertervező 

90.- 

205 

C64/S 

90/ 2 

Csi1lagászat 

130.- 

206 

C64/S 

90/ 2 

Térképismeret 

60.- 

207 

C64 

90/ 2 

Smooth scrol1 

60.- 

208 

C64 

90/ 2 

Fi 1 e tester 

60.- 

209 

C64 

90/ 2 

Line Tracer 

60.- 

210 

C64 

90/ 2 

Supervisor 

60.- 

211 

♦ 4 

90/ 2 

Véletlenszerű képcsere 

90.- 

212 

+4 

90/ 3 

Karakter leiró 

40.- 

213 

Cl 6 

90/ 4 

Zsolnai átlagszámitó 

60.- 

214 

C64 

90/ 4 

Labdák 

60.- 

215 

C64 

90/ 4 

Funkcióbi1lentyuk 

90.- 

216 

C64 

90/ 4 

Futó felirat 

90.- 

217 

C64 

90/ 4 

Jegyzettömb 

40.- 

218 

C64 

90/ 5 

Videofeliratozó 

60.- 

219 

C64 

90/ 5 

DUMP 

60.- 

220 

+4 

90/ 5 

Bűvös négyzet 

90.- 

221 

C64 

90/ 5 

Szuper BONGO 

60.- 

222 

C64 

90/ 6 

Videokatalógus 

110.- " 

223 

C64 

90/ 5 

Datakészitő 

90.- 

224 

Cl 28 

90/ 6 

Cartridge szimulátor 

130.- 

225 

Cl 28 

90/ 6 

Double charset 

60.- 

226 

+4 

90/ 7 

Hatos lotto 

60.- 

227 

+4 

90/ 7 

BIT-MAP 

60.- 

228 

C64 

90/ 7 

GEOS BOOT MAKER 

60.- 

229 

C64 

90/ 7 

Screen editor 

90.- 

230 

C64 

90/ 7 

Szekvenciális filelistázó 

40.- 

231 

C64 

90/ 7 

Editorbövitő 

130.- 

232 

C64 

90/ 7 

Kockapóker 

130.- 

233 

C64 

90/ 7 

Lemezbuvész 

90.- 

234 

C64 

90/ 7 

szuper autostart 

60.- 

235 

C64 

90/ 7 

Sípoló billentyűk 

40.- 

236 

+4 

90/ 9 

Directory print 

90.- 

237 

+4 

90/ 9 

Órarend 

130.- 

238 

+4 

90/10 

Nyelvi gyakorló 

110.- 

239 

C64 

90/10 

Eprom szerkesztő 

60.- 

240 

C64 

90/10 

LED indikátor 

60.- 

241 

♦ 4 

90/10 

öroknaptar 

110.- 1 

242 

C64 

90/11 

Funkcióbi1lentyük 

60.- 

243 

C64 

90/11 

Formaprint 

60.- 

244 

C64 

90/11 

Csíkos képernyő 

40.- 

245 

C64 

90/11 

Élet játék 

90.- , 

246 

C64 

90/11 

Videózó 

130 .- 

247 

C64 

90/11 

SEJT 64 

180 .- 

248 

C64 

90/11 

Betükirakó 

130.- 

249 

C120 

90/11 

Input rutin 

110.- 

250 

C64 

90/11 

Dupla karakterek 

180.- 

251 

C64 

90/12 

SPRITE PEEPER 

90.- 

252 

C64 

90/12 

SPRITE 

60.- 

253 

+4 

90/12 

Malom 

180.- 

254 

C64 

91/ 1 

Vízszintes scrol1 

60.- 

255 

C64 

91/ 1 

BASIC betolto készítő 

60.- 

256 

C64 

91/ 1 

VER IFY MASTER 

90.- 

257 

C64 

91/ 1 

Hibamentes replace 

130.- 

258 

+4 

91/ 1 

Autó Input 

130.- 

259 

C64 

91/ 1 

Törtek 

60.- 

260 

C64 

91/ 1 

Ablakozás könnyen 

90.- 

261 

+ 4 

91/ 2 

80-as képernyő 

80.- 

262 

C64 

91/ 2 

Fizikateszt 

50.- 

263 

C64 

91/ 2 

40 Sprite 

130.- 

264 

C64 

91/ 2 

Raster - Master 

80.- 

265 

C64 

91/ 3 

Rulett 

100.- 

266 

+4 

91/ 3 

Tape-disc copy 

110.- 

267 

C64 

91/ 3 

BASIC rearranger 

50.- 

268 

C64 

91/ 3 

BASIC decompactor 

50.- 

269 

C64 

91/ 3 

BASIC merger 

50.- 

270 

C64 

91/ 3 

SEIKOSHA 

80.- 

271 

C64 

91/ 3 

Cartndge szimuláció 

130.- 

272 

■*■4 

91/ 3 

Sally kulcsszókereso 

50.- 

273 

+4 

91/ 3 

Merge C+4 

80.- 

274 

C128 

91/ 4 

1.5 MHz-es C64 

100.- 

275 

C64 

91/ 4 

Morze - H 

00.- 

276 

C64 

91/ 4 

Gprint 

50.- 

277 

C64 

91/ 4 

ASCI1 - CHR$ 

50.- 

278 

C64 

91/ 5 

Rendező 

80.- 

279 

C64 

91/ 5 

Keretbeiró 

60.- 

280 

C64 >4 

91/ 5 

NLQ Print 

60.- 

281 

C64 

91/ 5 

FLD 

50.- 

282 

C64 

91/ 5 

Raster Sp1ít 

50.- 

283 

+4 

91/ 6 

Programnyi1vántartó 

80.- 

284 

C64 

91/ 6 

Regiszter 

60.- 

285 

C64 

91/ 6 

Digitalizált zene 

50.- 

286 

C64 

91/ 6 

Ékezetes MPS 802 

80.- 

287 

C64 

91/ 7 

♦Ékezetes iratkészitö 

100.- 

288 

-♦-4 

91/ 7 

Bűvös téglalap 

100.- 

289 

C64 

91/ 7 

Dominó - H 

100.- 

290 

C64 

91/ 7 

Raktáros 

80.- 

291 

+4 

91/ 7 

Tologató 

60.- 

292 

C64 

91/ 7 

Aren 2000 

50.- 

293 

C64 

91/ 7 

Bad Lamps 

80.- 

294 

C64 

91/ 7 

Operation Patriot 

50.- 

295 

+4 

91/ 7 

Mozaik - B 

90.- 

296 

+4 

91/ 7 

Lógí Kód 

60.- 

297 

C64 

92/ 1 

Databevivö 

50.- 

298 

+4 

91/ 7 

Bőmber 

50.- 

299 

+4 

91/ 7 

Dominó - K 

50.- 

300 

4-4 

91/ 7 

The Wall 

40.- 

301 

C64 

91/ 7 

Mozaik - K 

50.- 
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302 

+4 

91/ 7 

Dominó - R 

60. 

303 

+4 

91/ 7 

•Borgok Kincse 

190. 

304 

+4 

91/ 7 

Asteroids 

60. 

305 

C64 

91/ 9 

Ékezetes irat forrós 

40. 

306 

C64 

91/ 9 

Yugo2 

50. 

307 

C64 

91/ 9 

Adventure - Sz 

130. 

308 

C64 

91/ 9 

Morze Oktató B. 

130. 

309 

4-4 

91/ 9 

Memory Game Plus 

100. 

310 

C64 

91/ 9 

•Capita ly 

130. 

311 

C64 

91/ 9 

•Gengszterek 

60. 

312 

C64 

1 

•Küldetés 2000 

100. 

313 

C64 

91/ 9 

Itt a $ hol a $ 

50. 

314 

C64 

91/ 9 

Hewing 

50. 

315 

+4 

91/10 

Mikrobi 

50. 

316 

+4 

91/10 

Nest of Fleas 

190. 

317 

+4 

91/10 

Adventure - F 

100. 

319 

C64 

91/10 

Gondolkozó 

100. 

320 

C64 

91/10 

Memori - B 

130. 

321 

+4 

91/10 

Matekastély 

100. 

322 

C64 

91/11 

Lottó 

80 

323 

C64 

91/11 

Totó 

80. 

324 

C64 

91/11 

Német gyakorló 

60 

325 

+4 

91/11 

Beszélő szótér 

130 

326 

+4 

91/11 

Fi le examiner 

60 

327 

C64 

91/11 

Sprite szerkesztő 

50. 

328 

C64 

1 

Egyszinü Sprite 

50. 

329 

C64 

91/12 

Rulett javités 

50. 

330 

C64 

91/12 

Tőzsde 

130 

332 

C64 

92/ 1 

Kalandlap 

80 

333 

C64 

92/ 1 

Levéliró 

80 

334 

C64 

92/ 1 

Képérnyomaszko1ó 

130 

335 

C64 

92/ 1 

Sprite Kezelő 

100 

336 

C64 

92/ 1 

Sí - OPART 

40 

337 

C64 

92/ 2 

Patience Quartet 

130 

338 

C64 

92/ 2 

Monopoly 

130 

339 

C64 

92/ 2 

Akasztófa 

80 

340 

C64 

92/ 2 

Karaktertervező 

60 

341 

C64 

92/ 3 

String Array Manager 

100 

342 

C64 

92/ 3 

Sprite Basic 

50 

343 

C64 

92/ 3 

Screen Help 

50 

344 

C64 

92/ 3 

Gyors validate 

60 

345 

C64 

92/ 3 

BASIC SYNTAXER I. 

190 

346 

C64 

92/ 4 

Tologató C64-re 

100 

347 

C64 

92/ 4 

ABC rendező 

100 

348 

C64 

92/ 5 

•Matek 4- Római szémok 

100 

349 

+4 

92/ 6 

Tesztkészit.o 4- értékelő 

100 

350 

C64 

92/ 3 

BASIC SYNTAXER II. 

190 

351 

4-4 

92/ 7 

Mérőm játék 

110 

352 

+4 

92/ 7 

Szökés 

80 

353 

C64 

92/ 7 

Toto 

150 

354 

C64 

92/ 7 

DIGIT analízis program 

110 

355 

+4 

92/ 7 

SCREEN DUMP 

150 

356 

C64 

92/ 9 

UNISEQ fi lekezelő 

130 

357 

C64 

92/ 9 

Graphic Copy 

60 

356 

C64 

92/10 

Printfox Resizer 

130 

359 

04 

92/11 

Tologató I1. 

150 

360 

04 

92/12 

Sprite Plus-4-en 

130 

361 

C64 

92/12 

Változóiista 

150 

362 

C64.+4 

93/ 2 

Szomszéd játék 

200 

363 

C64 

93/ 2 

Táblás játék 

200 

364 

C64 

93/ 2 

SEDA 

150 

365 

C64 

93/ 2 

415 • 200 

120 

366 

+4 

93/ 2 

OTP hitel 

100 

367 

C64 

93/ 3 

Cataiog-Check(CTC) 

150 

368 

C64 

93/ 3 

Pattogó golyók 

200 

369 

C64 

93/ 3 

Beszóritós (DO-GUTI) 

150 

370 

C64 

93/ 3 

•Zsirozás 

200 

371 

C64 

93/ 4 

Attrib 64 

50 

372 

C64 

93/ 4 

Táblázatnyomtató 

80 

373 

04 

93/ 4 

Borítékkészito 

80 

374 

04 

93/ 4 

TV-óra 

50 

375 

C64 

93/ 4 

Mini Domino 

150 

376 

C64 

93/ 4 

Megathe1lo 

120 

377 

C64 

93/ 4 

Reversi 

120 

378 

C64 

93/ 4 

Tengeri csata 

120 

379 

C64 

93/ 5 

Videokazetták 

80 

380 

04 

93/ 5 

DlN-karakterek 

80 

381 

C64 

93/ 5 

DIRYDIRY 

80 

382 

C64 

93/ 5 

Birodalom 

150 

383 

C64 

93/ 6 

Csöamöba 

100 

384 

04 

93/ 6 

Függvényábrázolás 

150 

385 

C64 

93/ 6 

Amoba - E 

100 

386 

C64 

93/ 6 

Body Búilding 

60 

387 

C64 

93/ 7 

Colour BASIC 

80 

388 

C64 

93/ 7 

Directory kezelő 

60 

389 

C64 

93/ 7 

ötmezős KONO 

80 

390 

C64 

93/ 7 

Fogócska 

80 

391 

04 

93/ 7 

Klick - Klack 

120 

392 

C64 

93/ 9 

Órarend 

60 

393 

C64 

93/ 9 

Ma lomjáték 

80 

394 

04 

93/10 

Magyar nyomtatás 

120 

395 

C64 

93/10 

Pettyes szfinx 

60 

396 

C64 

93/11 

Ku Damm óra 

60 

397 

C64 

93/11 

Elásott kincs 

80 

398 

C64 

93/11 

Turbo Sort 

80 


A *-gal jelölt programok csak lemezen rendelhetők ! 


PÖTYÖGŐ SZOLGÁLAT 



Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés: 

(minden kockába egy betűt írjon) 



Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 

Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ¬ 
GŐSZOLGÁLAT-tói: 


PROGRAM SORSZÁMA 

Ara 

1- 




ÚJ- Ft 

2. 




LL'- Ft 

3. 



LL- Ft 

4. 



LL'- Ft 

5. 



II LLI " Ft 

6. 



LL- Ft 

7. 




LL- Ft 

8. 




LLI'- Ft 

9. 




LL- Ft 

összesen: 

LL 

db MM Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség + munkadíj 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve: . 


Címe: 
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ACOMP Kft. 

FEBRUÁRI 
60 Ft-os 

vásárlási utalványa 

Beváltható 500 Ft feletti 

készpénzes vásárlás esetén a 

1135 Budapest, Szent László u. 74/A. és 

1191 Budapest, Katica u. 9. 

szám alatti üzletekben. 

Érvényes: 1994. február 28-ig. 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


A NOVOTRADE SZERVfZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadíjából 10% kedvez¬ 
ményt ad az egyesületi tagoknak. 


1083 Budapest, Szigony u. 8. 

3525 Miskolc, Fazekas u. 1-3. 

5600 Békéscsaba, Bartók B. u. 37. 
6724 Szeged, Csongrádi sugárút 76 
9700 Szombathely, Szabnak u. 31. 


Tel.: 1343-153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/493-185 
Tel.: 94/314-519 


Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször Is igénybe vehető. 



MAKROVILÁG 

utazási iroda 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény: 


Beváltható 

utazás megrendelése esetén 

az Üllői úti főirodában az alábbiak szerint: 

5 000 Ft-lg — 200 Ft kedvezmény 

10 000 Ft-ig — 400 Ft kedvezmény 

20 000 Ft-lg — 500 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 


FEBRUÁRI 

60 Ft-os 

vásárlási utalvány 

Beváltható készpénzes 
vásárlás esetén a 2C Áruházban. 

Bp. XIII., Balzac u. 35. 

Érvényes: 1994. február 28-ig. 


HOBBI ELEKTRONIKA 

FEBRUÁRI 

vásárlási utalványa 

Értéke: 

5000 Ft-ig 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Kft.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


VC—20 memóriabővítés 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra: 3500 Ft 

C— 16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C—16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

C—16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16, C-116. +4 5000 Ft 

FÉK C—16, C—116. +4 potméteres sebességváltoztatás 

0%-tól 100%-ig fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4, C—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 


Egyesület tagoknak 30% kedvezmény: 


Speeddos (átkapcsolható) operációs rendszer beépítése 
(C64 átalakítás, lemezegység átalakítás + párhuzamos kábel) 

1541 kompatibilis lemezegységbe elektronikus lemezlyukasztó beépítése 
PAGEFOX magyar ékezetes kiadvány-szerkesztő cartridge 
(a teljes A/4-es oldal kinyomtatásához 640 pont/soros nyomtató szükesó- 
ges minimum, pl. Citizen 120D) 

FASTLOAD cartridge (lemezes gyorstöltő, másoló, monitor) 

TTL IC-teszter cartridge + program 

288/256 Kbyte-os eprombank (vezérlő eprommal) 

Epromégető (2716-tól 27512-ig) 

C64-hez tároló oszcilloszkóp 

C64-bővltő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) 

C64 USER - CENTRONICS nyomtatókábel (GEOS kábel) 

256 K RAM-diszk (256 Kbyte RAM-mal) 

256 K RAM-diszk (64 Kbyte RAM-mal) 

2x64 Kbyte-os cartridge igény szerinti programokkal feltöltve 
64 Kbyte-os cartridge igény szerinti programokkal feltöltve 
Képújság (teletext) dekóder C-64-re 
1764-es RAM bővítő GEOS-hoz is használható 
Epromok programozása meglévő programokkal, vagy saját hozott progra¬ 
mok beégetésével 2716-tól 27512-ig az eprommal együtt egységesen 
Árainkat az alkatrészárak változásai befolyásolhatják. 

A fenti bővítések megrendelhetők levélben az O.C.E. elmén, valamint sze¬ 
mélyesen a havonta rendezendő klubdélelőttön, ahol rendszeres bemutatót 
is tartunk. 

Postázás esetén 100 Ft postaköltség kerül felszámításra. 

A kedvezmény igénybevételéhez az O.C.E. tagsági igazolvány bemutatása 
szükséges. 
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Sy Quest 


Hivatalos magyarországi disztribútora: 



Cím: 1053 Budapest, Henszlmann I. u. 9 
Telefon: 117-4144 Telefax: 117-9692 


Cserélhető lemezes winchester! 


Szervizeinkben és szerződött viszonteladóinkon keresztül az alábbiakat forgalmazzuk: 


SQ 555 

44 MB-os 5V4 

SCSI drive, 

SQ 400 lemez 

( 44 MB) 

SQ 5110 

88 MB-os 5V 4 

SCSI drive, 

SQ 800 lemez 

( 88 MB) 

SQ 3105A 

105 MB-os 3V 2 

AT-BUS drive, 

SQ 310 lemez 

(105 MB) 

SQ 2542A 

42 MB-os 2V 2 

AT-BUS drive, 

SQ 240 lemez 

( 42 MB) 
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Számítógépszerviz ! 


Személyi számítógépek és perifériák javítását, karbantartását továbbra is tőlünk 
rendelje meg! Gyors, pontos és megbízható! Örök garanciát kap, 
ha átalánydíjas javítási és karbantartási szerződésformánkkal 
védi nagy értékű gépei műszaki állapotát. 
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Várjuk jelentkezését az alábbi szervizeinkben: 


1083 

Budapest, 

Szigony u. 8, 

Tel.: 

1343-153 

3525 

Miskolc, 

Fazekas u. 1-3, 

Tel.: 

46/321-488 

5600 

Békéscsaba, 

Bartók B, u. 37. 

Tel.: 

66/327-195 

6724 

Szeged, 

Csongrádi sgt. 76. 

Tel.: 

62/493-185 

9700 

Szombathely, 

Szalonak u. 31. 

Tel.: 

94/314-519 


NOVOTRADE SZERVIZ KFT. 























